Läuft ein bestimmtes Programm?

[Wheelie]

wie kann ich unter windows2000/xp checken, ob eine bestimmtes programme läuft (*.exe)???
hatte sowas schonmal, läuft aber nur unter win98/me... :cry:

gruß

lukas

[Uncle Cracker]

Vielleicht hilft dir das hier

Delphi-Quellcode:

function EnumWinProc(Wnd: hWnd): Boolean; StdCall;
 var
  WinCaption : Pchar;
  WinHandle  : string;
 begin
   GetMem(WinCaption, 255);
   try
     GetWindowText(Wnd, WinCaption, 255);
     Result := True;
     if (Trim(WinCaption) <> '') then
     begin
       WinHandle := IntToHex(Wnd, 6);
       Form1.ListBox1.Items.add(WinHandle + ' : ' + WinCaption);
     end;
   finally
    FreeMem(WinCaption, 255);
   end;
 end;

Jedoch werden alle Prozesse in eine Listbox eingtragen, doch du willst nur nach einem bestimmt EXE-Namen suchen, oder?

[Edit]Aufgerufen wird so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWinProc, Application.Handle);
end;

[Wheelie]

ne ist nicht ganz das richtige...habe einen programm-pfad (C:\...\prog.exe) und will nun rausfinden ob dieses programm ausgeführt wird oder nicht...danke trotzdem für die schnelle antwort (komme übrigens auch aus dresden :-D )

[Wheelie]

@alle profis: ihr wisst doch bestimmt wie das geht oder? habe in der suche was gefunden, brauche dazu aber die psApi...hat denn sonst keiner nen vorschlag?

[Luckie]

@Uncle Cracker: das listet alle Fenster auf. Nur gilt: Fenster <> Prozess!!

Suich mal hier nach CreateToolHelp32SnapShot ins besondere in der Code Library, dass sollte dir helfen.

[fxbasic]

Moin, in dem Moment wo ich die Funktion

Delphi-Quellcode:

EnumWindows(@EnumWinProc, Application.Handle);

aufrufe und dann mit der Listbox weiterarbeiten will (For-Schleife), stürzt mir das Programm mit "Fehler bei read" im Laufzeitmodus ab.

Was läuft da schief???

Gruß, fxbasic

[Luckie]

Was verstehst du unter "weiter arbeiten"? Wie wäre es mit etwas Code?

[franz]

Hi,

sieh dir das mal an:

Testen ob eine Datei benutzt wird