我在网上找到一个例程,可以查找EXE文件有没有运行,但是好像没用 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);