如何判断某一进程已经启动？

程序中通过什么方式判断另外一程序已在进程运行中？   请指教。 问题点数：20、回复次数：1Top

1 楼jackie186（好山好水在丽江，住进束河好来屋。）回复于 2006-03-07 16:37:55 得分 20

查找进程  
   
  function   IsProcessRunning(const   ProcessName:   string):   THandle;     //查找进程句柄  
  const  
      PROCESS_TERMINATE   =   $0001;  
  var  
      ContinueLoop:   BOOL;  
      FSnapShotHandle:   THandle;  
      FProcessEntry32:   TProcessEntry32;  
  begin  
      Result   :=   0;  
      FSnapShotHandle   :=   CreateToolhelp32SnapShot(TH32CS_SNAPPROCESS,   0);  
      FProcessEntry32.dwSize   :=   SizeOf(FProcessEntry32);  
      ContinueLoop   :=   Process32First(FSnapshotHandle,   FProcessEntry32);  
      while   WordBool(ContinueLoop)   do  
      begin  
          if   AnsiPos(LowerCase(ProcessName),   LowerCase(FProcessEntry32.szExeFile))   >   0   then  
          begin  
              Result:=   FProcessEntry32.th32ProcessID;  
              Break;  
          end;  
          ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);  
      end;  
      CloseHandle(FSnapshotHandle);  
  end;Top

相关问题

• fprocessentry
• fsnapshothandle
• continueloop
• 进程
• processname
• lowercase
• 查找
• thandle
• 程序
• th

• 帖主：lsj2
• jackie186

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载