Checken ob ein Task da ist [gelöst]

[andone]

Hallo miteinander,

ich möchte prüfen ob eine bestimmtes Programm gestartet ist. Erste Idee wäre den Taskmanager abzufragen. Oder was mit TProcess machen ? Hab hier im Forum noch nix dazu gefunden.

Gruß
AndOne

P.S. Bin übrigens neu hier. Bin gerade erst von Delphi auf Lazerus umgestiegen

[MmVisual]

Sowas?

http://www.delphi-library.de/topic_Proz ... 114,0.html

[andone]

Hallo MmVisual,

sieht so nicht schlecht aus. Für Lazerus wahrscheinlich aber nicht nutzbar da die Unit PsApi nicht da ist, und Lazerus HWND nicht kennt. Vielleicht gibts Alternativen ?

Ich habs in Delphi bisher so gemacht:

Code: Alles auswählen

var   Snap      : THandle;
      ProcessE  : TProcessEntry32;
-----------------------
Snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  ProcessE.dwSize:=SizeOf(ProcessE);
  if Process32First(Snap,ProcessE) then begin
      StrDummy:=  string(ProcessE.szExeFile); // 1. Prozess
      // Wenn Task gefunden
      if StrDummy = 'XXXXXX.exe' then Gestartet := True;
      while Process32Next(Snap,ProcessE) do begin // alle restlichen Prozesse
        StrDummy:=string(ProcessE.szExeFile);
        if StrDummy = 'XXXXXX.exe' then Gestartet := True;
      end;
  end
  else ShowMessage('Fehler!');
  CloseHandle(Snap);

Geht aber wegen TProcessEntry32 auch nicht
Gibts dazu ggf. ne Alternative ?

Gruß
andone

[theo]

Du könntest die benötigten Funktionen selber importieren.
Ideen dazu gibt's hier:
http://www.koders.com/delphi/fid941A861 ... 60A65.aspx

[andone]

Der Code von mir läuft jetzt. Habe folgendes gemacht:

1. {$MODE Delphi}

2. Die Unit Windows eingebunden

3. TlHelp32.pas aus Delphi eingebunden (Die gibts auch im WWW)

Danke Euch