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 Process32( han, ProcStruct );

  end;

 // clean-up

 CloseHandle( han );

end;