DELPHI - Pegar PID através do nome do executável - Catch PID via executable name

DELPHI - Pegar PID através do nome do executável - Catch PID via executable name

Essa função retorna o PID do executável, passando o nome do mesmo como parametro.

Add Uses TlHelp32

function GetPIDExecutavel(const ANomeExe: String):Cardinal;
var
  MContinueLoop: BOOL;
  MHandle: THandle;
  MProcList: TProcessEntry32;
  MLocated: Boolean;
begin
  Result := 0;

  MHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  MProcList.dwSize := SizeOf(MProcList);
  MContinueLoop := Process32First(MHandle, MProcList);

  while Integer(MContinueLoop) <> 0 do
  begin
    MLocated := ((UpperCase(ExtractFileName(MProcList.szExeFile)) =
      UpperCase(ANomeExe)) or (UpperCase(MProcList.szExeFile) = UpperCase(ANomeExe)));

    if MLocated then
    begin
      Result := MProcList.th32ProcessID;
      Break;
    end;
    MContinueLoop := Process32Next( MHandle, MProcList );
  end;
  CloseHandle(MHandle);
end;

Retirado do ActiveDelphi