Qrimkiss 发表于 2014-8-7 09:09:05

Delphi进程判断

program Project2;

uses
windows,TLHelp32;

function FindProcess(AFileName:string):boolean;
var
    hSnapshot:THandle;
    lppe:TProcessEntry32;
    Found:Boolean;
begin
    Result:=False;
    hSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
    lppe.dwSize:=SizeOf(TProcessEntry32);
    Found:=Process32First(hSnapshot,lppe);
while Found do
begin
    if(lppe.szExeFile = AFileName) then Result:=True;
    Found:=Process32Next(hSnapshot,lppe);
end;
end;

begin
    if FindProcess('QQ.exe') then
    MessageBox(0, PChar('QQ存在'), PChar('提示'), MB_OK);
end.

重庆生活网c 发表于 2018-10-28 17:28:07

做做看哦，谢谢提供

耕望平所 发表于 2019-7-14 11:17:11

我也想了解，谢谢发帖的人











static/image/common/sigline.gif
房产资讯新闻信息
房地产资讯新闻信息
房价资讯新闻信息

qwefcku1 发表于 2019-10-21 15:31:56

谢谢分享。。。。。。。。。。。。。。。。
页: [1]
查看完整版本: Delphi进程判断