本文整理自网络，侵删。
delphi查找特定的EXE是否在运行
function FindProc(ProcName: string): boolean;
var
OK: Bool;
hPL, hML: THandle;
ProcessStruct: TProcessEntry32;
ModuleStruct: TModuleEntry32;
begin
Result := False;
hPL := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
ProcessStruct.dwSize := SizeOf(TProcessEntry32);
OK := Process32First(hPL, ProcessStruct);
while OK do
begin
if UpperCase(ProcessStruct.szExeFile) = UpperCase(ProcName) then
begin
Result := True;
// find path info
hML := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, ProcessStruct.th32ProcessID);
ModuleStruct.dwSize := SizeOf(TModuleEntry32);
Module32First(hML, ModuleStruct);
if hML > 0 then
begin
ShowMessage(ModuleStruct.szExePath);
end;
CloseHandle(hML);
end;
OK := Process32Next(hPL, ProcessStruct);
end;
CloseHandle(hPL);
end; 相关阅读 >>
Delphi android / ios应用程序中使用tgeocoder类进行反向地理编码（从位置信息中获取地址）
Delphi xe5 中tmemo控件的应用――for android
Delphi windows 编程[20] - 改变菜单项并换行
关于idtcpserver和idtcpclient对stream的发送与接收问题
更多相关阅读请进入《Delphi》频道 >>
