怎么判断一个应用程序是否下在运行

nkym0626 2011-03-23 05:47:25

...全文

63 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

keeley20 2011-03-23

打赏
举报

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((UpperCase(ExtractFileName(lppe.szExeFile))=UpperCase(AFileName))   or   (UpperCase(lppe.szExeFile   )=UpperCase(AFileName)))   then

begin

Result:=True;

end;

Found:=Process32Next(hSnapshot,lppe);

end;

end;

枚举进程

haitao 2011-03-23

打赏
举报

查进程是可以看是否运行
但是是不是假死，就不知道了
最好还是程序自己能定时对外通知：我还在工作

cntigercat 2011-03-23

打赏
举报



function CheckTask(ExeFileName: string): Boolean;

const

  PROCESS_TERMINATE=$0001;

var

  ContinueLoop: BOOL;

  FSnapshotHandle: THandle;

  FProcessEntry32: TProcessEntry32; //TLhelp32单元

begin

  Result := False;

  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);

  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);

  ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);

  while integer(ContinueLoop) <> 0 do

  begin

    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =UpperCase(ExeFileName))

      or (UpperCase(FProcessEntry32.szExeFile) =UpperCase(ExeFileName))) then

      result := True;

    ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);

  end;

end;