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

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;