Question

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

如果scktsrvr.exe不启动的话，程序启动的时候会报错，怎么样判断一下，提醒用户把scktsrvr.exe服务开起来

Answer 1

function FindProcess(AFileName: string): THandle;
var
hSnapshot: THandle;
lppe: TProcessEntry32;
Found: Boolean;
begin
Result := 0;
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 := lppe.th32ProcessID;

break;

end;

Found := Process32Next(hSnapshot, lppe);
end;
end;

//判断方法:

if FindProcess('scktsrvr.exe')=0 then
// 未启动
else
// 已启动