AutoHotkey Community

Code: Select all

; Aufruf Beispiele:
; HK="
; Pfad:="c:\temp\Pfad mit Leerzeichen\Notiz.txt"
; Run_Wait(HK Pfad HK)

Run_Wait("explorer.exe")		; Startet ein Explorer-Fenster und wartet bis es geschlossen wird.
MsgBox, % Run_Wait("notepad.exe",,,PID) . " PID: " . PID . " beendet"

Run_Wait(Ziel,Arbeitsverz="",MaxMinHideUseErrorLevel="",ByRef VarPID="")		; wie RunWait, jedoch nur wenn der Prozess mindestens 1,6 Sekunden läuft!
; dafür werden auch Programme wie der Explorer unterstützt.
{
	Run,% Ziel,% Arbeitsverz,% MaxMinHideUseErrorLevel,VarPID
	Sleep 530
	Process, Wait,%VarPID%,1						; wartet bis Prozess sauber eingenistet und überprüft ob Prozess noch vorhanden.
	if(ErrorLevel = 0)								; Die PID ist nicht mehr vorhanden
	{												; Zweig der beim Starten und überwachen des Explorers verwendet wird
		VarId := WinExist("A")						; umschwenken aufs momentan Aktive Fenster
		; SoundBeep									; Akustische Meldung umschwenken
		WinWaitClose, ahk_id %VarId%				; warten auf das Schließen des Fensters
		return Ziel
	}
	Process, WaitClose,%VarPID%				; warten auf schließen des Prozesses
	if(ErrorLevel<>0)						; Errolevel auf 0 gesetzt
		MsgBox %A_LineFile% at %A_LineNumber%	nicht erwarteter Skriptzweig
	return Ziel
}

Code: Select all

run "D:\Programme (x86)\Microsoft Office\Office12\MSACCESS.EXE" "F:\Eigene_Dateien\Datenbank\Musik\musik.mdb",,,MdbPID
sleep 1000
; MdbPID :=					; zum testen ohne ProcessID  Kommentar entfernen.
Process, Wait,%MdbPID%,4
if(ErrorLevel = 0)
{
	MdbId := WinExist("A")
	SoundBeep
}
else
	MdbId := WinExist("ahk_PID " MdbPID)
sleep 1000
MsgBox  64, Schließfreigabe ,nach schließen dieses Fensters`, kann die Schaltfläche zum Schließen der DB betätigt werden, 4
WinWaitClose, ahk_id %MdbId%
; Aktionen nach schließen der  Datenbank
MsgBox  64, Ende,  >%MdbID%< Fenster Schließung festgestellt, 4

ExitApp

LShift & Rshift::
ListLines
return

Code: Select all

run "D:\Programme (x86)\Microsoft Office\Office12\MSACCESS.EXE" "F:\Eigene_Dateien\Datenbank\Musik\musik.mdb",,,MdbPID
Sleep 2000
Process, WaitClose,%MdbPID%
; Aktionen nach schließen der  Datenbank

Code: Select all

run "D:\Programme (x86)\Microsoft Office\Office12\MSACCESS.EXE" F:\Eigene_Dateien\Datenbank\Musik\musik.mdb,,,MdbPID
MsgBox %A_LineNumber%	%MdbPID%
Process, WaitClose,%MdbPID%, 99999999
send !t
Send #{Esc}

Code: Select all

MsgBox %A_LineNumber%
run "C:\temp\9.txt",,,MdbPID
; run notepad.exe "C:\temp\9.txt",,,MdbPID
MsgBox %A_LineNumber%	%MdbPID%
Process, WaitClose,%MdbPID%
MsgBox %A_LineNumber%

Code: Select all

Process, WaitClose,%MdbPID%,99999999