Диспетчер задач

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;

ShowMessage(BoolToStr(IsRunning('svchost.exe')));