Question

delphi中怎么判断scktsrvr.exe是否启动

Answer 1

1、先use TLHelp32, PsAPI，使用其中Process32First的函数和Process32Next遍历所有进程。

2、然后判断是否存在scktsrvr.exe。

3、函数代码：

function checkAppExists(appN: string): Boolean;
var
  lppe: TProcessEntry32;
  found : boolean;
  Hand : THandle;
  P:DWORD;
  s:string;
begin
  result := false;
  Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
  found := Process32First(Hand,lppe);
  while found do
  begin
    s := StrPas(lppe.szExeFile);
    if lppe.th32ProcessID>0 then
      p := lppe.th32ProcessID
    else
      p := 0;
    if (s = appN) then
    begin
      Result:= True;
      Break;
    end;  
    found := Process32Next(Hand,lppe);
  end;
end;

4、程序示例，判断scktsrvr.exe是否存在：

procedure TForm1.btn1Click(Sender: TObject);
begin
  if checkAppExists('scktsrvr.exe') then
  begin
    ShowMessage('scktsrvr.exe在运行！');
  end
  else
  begin
    ShowMessage('scktsrvr.exe没有运行！');
  end;    
end;

5、效果如下：

Answer 2

直接查找进程即可：
function 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 FindProcess('scktsrvr.exe') then
ShowMessage('已找到进程')
else
ShowMessage('找不到进程');

Answer 3

有些是可以启动的啊