PDA

Vollständige Version anzeigen : Fremde Anwendung beenden?


HPG
17.01.2003, 09:25
Hallo NG,

ich öffne eine Fremdanwendung, wie unten beschrieben. Gibt es eine Routine, mittels der ich dieses Programm auch wieder schliessen lassen kann?

Dim stAppName As String

stAppName = "C:\Programme\Alcatel\Uaphone\ClipDial.exe"
Call Shell(stAppName, 1)

Danke im voraus
Gruß
Hans-Peter

horse79
17.01.2003, 09:37
Hi,

die Shell-Anweisung liefert Dir als Rückgabewert die TaskID der gestarteten Anwendung. Über AppActivate kannst Du dann die Anwendung aktivieren. Das Schließen erfolgt dann per ALT+F4, was sich mit der SendKeys-Anweisung realisieren lässt.

Das ganze sieht dann so aus:

' Anwendung starten
Dim lTaskID As Long
lTaskID = Shell("Anwendung.exe")


' Anwendung beenden
AppActivate lTaskID
SendKeys "%{F4}", True

HTH