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 xe5 将Delphi code从winos 迁移到ios与android

webbrowser里网页根据文字判断来点击链接

Delphi xe5 for android 地理定位gps

vclzip控件的简单使用

Delphi从网上获取北京时间

Delphi 处理以逗号分隔的长字符串

Delphi中如何判断mediaplayer控件所播放的文件是否播放完毕?

Delphi入门语法

Delphi 62 进制的简单实现

Delphi驱动方式winio模拟按键

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



打赏

取消

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

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

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

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

评论

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