如何偵測某程式是否在執行中?

bestlong

1. //如何偵測某程式是否在執行中?(用執行檔名)
   
2. Function ApplicationUse(fName : string ) : boolean;
   
3. var
   
4.     HFileRes : HFILE;
   
5. begin
   
6.    Result := false;
   
7.    if not FileExists(fName) then exit;
   
8.    HFileRes := CreateFile(PChar(fName), GENERIC_READ or GENERIC_WRITE,0, nil,
   
9.    OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
   
10.    Result := (HFileRes = INVALID_HANDLE_VALUE);
    
11.    if not Result then CloseHandle(HFileRes);
    
12. end;

複製代碼

1. //如何偵測某程式是否在執行中?(用程式名稱)
   
2. function IsExecute(filename:string):boolean;
   
3. var MyWnd : Thandle;
   
4. begin
   
5.    MyWnd:=FindWindow(nil, PChar(filename));
   
6.    result:=MyWnd<>0;
   
7. end;
   
8. 
   
9. procedure TForm1.Button1Click(Sender: TObject);
   
10. begin
    
11.    if IsExecute('project1') then
    
12.       showmessage('Project1 is running');
    
13. end;

複製代碼