delphi 查看windows后台进程是否运行

2017-09-06 08:37:06来源:CSDN作者:qin_yaping人点击

分享
function TfmLogin.FindProcess(AFileName: string): boolean;
var
  hSnapshot : THandle;
  lppe : TProcessEntry32;
  Found : Boolean;
begin
  Result := False;
  hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  lppe.dwSize := SizeOf(TProcessEntry32);
  Found := Process32First(hSnapshot, lppe);
  while Found do
  begin
    if ((UpperCase(ExtractFileName(lppe.szExeFile))=UpperCase(AFileName)) or (UpperCase(lppe.szExeFile )=UpperCase(AFileName))) then
    begin
      Result := True;
    end;
      Found := Process32Next(hSnapshot, lppe);
  end;

end;


  if not FindProcess('ScktSrvr.exe') then
  begin
      ShowMessage('scktsrvr.exe未启用!');
      exit;
  end;

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台