本文整理自网络，侵删。
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 tdirectory.getdirectories
Delphi判断mssql数据库中表格是否存在？ 如何批量创建表格？
Delphi sysutils.isdelimiter - 判断字符串的某个位置是不是指定的字符串
Delphi xe5 android 解决ide真机调试不起问题
Delphi中的处理事件 application.processmessages
更多相关阅读请进入《Delphi》频道 >>
