> Jeg vil gerne kunne lukke et eksternt program.
> F.eks. Åbne Notesblok og lukke det igen.
Her er da lidt hjælp til hvordan man åbner et program. Det er en kode jeg
har fundet på
http://www.experts-
exchange.com/Programming/Programming_Languages/Visual_Basic/VB_Controls/Q_
20711948.html (fyyy, slemme mig, tage en andens kode =D)
----------
Private Sub ExecAndWait(strApp)
Dim hProcessID&, hProcess&
Dim lngExitCode
hProcessID = Shell(strApp, vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, hProcessID)
' Disable all other buttons here
Form1.WindowState = 1
Do
Call GetExitCodeProcess(hProcess, lngExitCode)
DoEvents
Loop While lngExitCode = STATUS_PENDING
' Enable all other buttons here
Form1.WindowState = 0
End Sub
Private Sub Form_Load()
ExecAndWait "notepad.exe"
End Sub