Taskmanager

[Balu der Bär]

Zitat von Axxus:

Aber wo genau liest jetzt der Task manager aus welche programme laufen???

Die Frage ist nicht wo sondern wie.

Delphi-Quellcode:

uses
TlHelp32;

procedure ListTasks(list: TStrings); 
var
 Snap:THandle;
 ProcessE:TProcessEntry32;
begin
 Applist.Clear;
 Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 ProcessE.dwSize := SizeOf(ProcessE);
 if Process32First(Snap,ProcessE) then
  begin
    Applist.Add(string(ProcessE.szExeFile));
    while Process32Next(Snap,ProcessE) do
      Applist.Add(string(ProcessE.szExeFile));
  end
   else ShowMessage('Fehler!');
 CloseHandle(Snap);
end;

//Aufruf:
ListTasks(ListBox1.items);