delphi查找特定的EXE是否在运行


本文整理自网络,侵删。

 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 让控制台窗口不现实出来

Delphi写qq消息群发(模拟按键精灵)

Delphi xe7的android应用取得wi-fi的信息

Delphi searchrec.attr and fadirectory

Delphi firedac 的recordcount 相关测试 记录

Delphi indy防止假死

cvcode.pas

Delphi webbrowser1 execwb 复制 新建 打开

Delphi取得文件图标并在tlistview中显示

Delphi 得到执行程序的当前所在完整路径

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...