Noch ne Methode:
Einfach alle laufenden Prozesse in ne Listbox laden:
Delphi-Quellcode:
uses
tlhelp32;
procedure GetProcessList(const aProcessList: TStrings);
var
Snap: THandle;
ProcessE: TProcessEntry32;
begin
aProcessList.Clear;
Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
try
ProcessE.dwSize := SizeOf(ProcessE);
if Process32First(Snap, ProcessE) then
Repeat
aProcessList.Add(ProcessE.szExeFile);
Until not Process32Next(Snap, ProcessE)
else
RaiseLastOSError;
finally
CloseHandle(Snap);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetProcessList(listbox1.Items);
end;
Und dann einfach in der Listbox suchen wie oft deine Anwendung da drinne steht.
Zawr nicht grad elegant, aber eine Alternative.