Çalışan proğramların listesini alma

uses TLHELP32;

Procedure...

var

MyHandle:THandle;

Struct:TProcessENtry32;

begin

MyHandle:=CreateTooHelp32SnapShot(TH32CS_SNAPPROCES,0);

Struct.dwSize:=Sizeof(TProcessENtry32);

if Process32First(MyHandle,Struct) then

Memo1.lines.add(Struct,szExeFiles);

While Process32Next(MyHandle,Struct) then

Memo1.lines.add(Struct,szExeFiles);

end;