如果想检测当前系统进程中是否存在指定的进程可以使用
如下函数:
var
hSnapshot: THandle;
lppe: TProcessEntry32;
begin
hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
lppe.dwSize:=Sizeof(lppe);
if Process32First(hSnapshot,lppe) then
while Process32Next(hSnapshot,lppe) do
if lppe.szExeFile=(指定程序的执行文件名) then ??
CloseHandle(hSnapshot);
……
如下函数:
var
hSnapshot: THandle;
lppe: TProcessEntry32;
begin
hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
lppe.dwSize:=Sizeof(lppe);
if Process32First(hSnapshot,lppe) then
while Process32Next(hSnapshot,lppe) do
if lppe.szExeFile=(指定程序的执行文件名) then ??
CloseHandle(hSnapshot);
……
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货