delphi版 进程快照

605382

把VB那段代码，转成delphi了


function GetProcessID(sProcName: string): integer;
var
  hProcSnap: THandle;
  pe32: TProcessEntry32;
begin
  Result := -1;
  //创建进程快照
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  if hProcSnap = INVALID_HANDLE_VALUE then Exit;
  pe32.dwSize := SizeOf(ProcessEntry32);
  if Process32First(hProcSnap, pe32) = True then
     //查找下一个进程
       while Process32Next(hProcSnap, pe32) = True do
         begin
           if AnsiStricomp(PChar(ExtractFilename(pe32.szExefile)), PChar(ExtractFilename(sProcName))) = 0 then
              begin
                Result := pe32.th32ProcessID;
                 //跳出循环
                 break;
           end;
         end;
  CloseHandle(hProcSnap);
end;