Как получить список процессов?
Как получить список процессов?
function IsRunning( sName : string ) : boolean;
var
han : THandle;
ProcStruct : PROCESSENTRY32; // from "tlhelp32" in uses clause
sID : string;
begin
Result := false;
// Get a snapshot of the system
han := CreateToolhelp32Snapshot( TH32CS_SNAPALL, 0 );
if han = 0 then
exit;
// Loop thru the processes until we find it or hit the end
ProcStruct.dwSize := sizeof( PROCESSENTRY32 );
if Process32First( han, ProcStruct ) then
begin
repeat
sID := ExtractFileName( ProcStruct.szExeFile );
// Check only against the portion of the name supplied, ignoring case
if uppercase( copy( sId, 1, length( sName ) ) ) = uppercase( sName ) then
begin
// Report we found it
Result := true;
Break;
end;
until not Process32Next( han, ProcStruct );
end;
// clean-up
CloseHandle( han );
end;
Взято с Исходников.ru
