Kan man verkligen göra så här??

Har ett färdigkompillerat program exe som heter Fibrer.exe som ligger i mappen C:\Fibrer

Nu har jag gjort en till exe.fil som heter Demo.exe

Från Demo.exe kan jag komma till Fibrer.exe

via

Private Sub Command2_Click()

Dim ret As Long
ret = Shell("C:\Fibrer\Fibrer.exe", vbNormalFocus)
End Sub

Från Fibrer.exe
Avslutar jag med "koden"
och då kommer jag tillbaka till Demo.exe


Private Sub Command7_Click()
Unload Me
Unload Tips
Unload Sökare
Unload Uppdatering
Unload Resa
Dim ret As Long
ret = Shell("C:\Fibrer\Demo.exe", vbNormalFocus)
End Sub


Trots att det funkar synbart, är det något lurt.
Det känns inte som aktiviteten är avslutat
när jag sen stänger ner Demo.exe och då skall allting vara avslutat.

Private Sub Command2_Click()
Unload Me
Unload Fiberlista
Unload Benny
End Sub

Är det felaktigt det jag gör....eller??

Mvh
Kenneth

Kolla med Ctrl+Alt+Del om programet har avslutats !!
Annars kan man jobba med att stänga ner ett fönster mha fönsternamnet ( dvs om ditt pgm nu har fönster)

prova tex att starta Kalkylatorn och kör sen:

<code>

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10

Private Sub Command1_Click()
Dim ghw As Long
Dim ghw0 As Long
Dim ghw1 As Long
ghw = FindWindow(vbNullString, "Kalkylatorn")
PostMessage ghw, WM_CLOSE, CLng(0), CLng(0)
End Sub

</code>

*/Larry

Klockrent så enkelt. Kör Windows 200. Det fanns ingen aktivitet i bakgrunden.

Meget tack och Gud så enkelt...bara man tänkte på det....vilket man alltså inte gjorde.

Ha det bra

Mvh

Kenneth