heló
szerintem próbáld meg úgy, hogy figyeled a futó programok listáját, és ha nincs közte, akkor leállt.
a futó progik listáját igy tod lekérni(egy tstrings-be):
procedure Processlista(list:TStrings);
Var
r : Real;
bom,bop : Boolean;
thm,thp : THandle;
me : MODULEENTRY32;
pe : PROCESSENTRY32;
Begin
list.clear;
thp:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
pe.dwSize:=SizeOf(pe);
bop:=Process32First(thp,pe);
While bop Do
With pe Do
Begin
me.dwSize:=SizeOf(me);
thm:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,pe.th32ProcessID);
bom:=Module32First(thm,me);
r:=0;
While bom Do
With me Do
Begin
r:=r+modBaseSize;
bom:=Module32Next(thm,me);
End;
CloseHandle(thm);
list.add(szExeFile);
bop:=Process32Next(thp,pe);
End;
CloseHandle(thp);
End;