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实现ping功能的类

Delphi base64, quoted-printable 的解码与编码函数

Delphixe firemonkey 如何画图

Delphi 去除右边指定字符

Delphi2010显示选择文件夹对话框 (有新建按钮)

Delphi byte类型算术运算

Delphi 改变进程优先级

字符串截取小例子Delphi源代码

Delphi 在电脑屏幕上显示图片

Delphi tzipfile 用法

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



打赏

取消

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

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

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

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

评论

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