检查某个exe文件是否正在运行

function exe_is_running(const exeName:String) : Boolean;  //exeName:不要扩展名的Exe主文件名   
var  
  hCurrentWindow:HWnd;   
  szText:array[
0..254] of char;   
begin  
  Result :
= False;   
  hCurrentWindow:
=Getwindow(Application.Handle,GW_HWNDFIRST);   
  
while hCurrentWindow <> 0 do  
  begin  
    
if Getwindowtext(hCurrentWindow,@sztext,255)>0 then  
    begin  
       
if LowerCase(pchar(@sztext))=LowerCase(exeName) then  
       begin  
         Result :
= true;   
         Exit;   
       end;   
    end;   
    hCurrentWindow:
=Getwindow(hCurrentwindow,GW_HWndNext);   
  end;   
end;   

用法:
如我们要判断'Live.exe'程序是否正在运行/是否已经启动
if exe_is_running(Live) then
  ....
else
  ....



    本文转自 OldHawk  博客园博客,原文链接:http://www.cnblogs.com/taobataoma/archive/2007/08/15/856401.html,如需转载请自行联系原作者


上一篇:设“济南市大数据局”建平台免费开放数据


下一篇:优秀的无线AP产品,改变你的工作感受