Abfrage, ob ein gestartetes Programm noch läuft

[Relicted]

huhu!

mit der funktion hier kannst du schauen ob eine bestimmte exe noch läuft...

Delphi-Quellcode:

function GetProcessID(Exename: string): DWORD;
var
  hProcSnap: THandle;
  pe32: TProcessEntry32;
begin
  result := 0;
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  if hProcSnap <> INVALID_HANDLE_VALUE then
  begin
    pe32.dwSize := SizeOf(ProcessEntry32);
    if Process32First(hProcSnap, pe32) = true then
    begin
      while Process32Next(hProcSnap, pe32) = true do
      begin
        if pos(Exename, pe32.szExeFile) <> 0 then
          result := pe32.th32ProcessID;
      end;
    end;
    CloseHandle(hProcSnap);
  end;
end;

du könntest also mit:

Delphi-Quellcode:

//provisorisch...
self.hide;
repeat
  sleep(100);
until (GetProcessID('setup.exe'));
self.show;

so lange dich verstecken bis das setup gekillt/beendet wurde...

gruß
reli