size : 559 uploaded_on : Thu May 27 00:00:00 1999 modified_on : Wed Dec 8 14:03:40 1999 title : List running processes org_filename : LookForExe.txt author : Zlatko Petkov authoremail : z-petkov@bgnet.bg description : How to walk throught processes and look for executable name keywords : tested : not tested yet submitted_by : The CKB Crew submitted_by_email : ckb@netalive.org uploaded_by : nobody modified_by : nobody owner : nobody lang : plain file-type : text/plain category : delphi-misc __END_OF_HEADER__ This code is snipped from example to walk throught processes and look for executable name: uses Tlhelp32; procedure LookForExe; var fnd : Boolean; PHndle : THandle; Proc : TProcessEntry32; Snap : THandle; begin Snap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0); Proc.dwSize := SizeOf(TProcessEntry32); Process32First(Snap,Proc); repeat fnd := (UpperCase(String(ExtractFileName(Proc.szExeFile))) = 'YOURPROGRAMHERE.EXE'); until (not Process32Next(Snap,Proc)) or (fnd); If fnd then begin {...} end; end;