zoukankan      html  css  js  c++  java
  • Delphi判断某进程是否运行的函数

    use Tlhelp32;

    函数:

    function   TForm1.FindProcess(aFileName:   String):   boolean;             //   zxf   add   2007-4-3   判断本机是否在运行后台程序
    var   hSnapshot:THandle;                   //获取进程列表
            lppe:TProcessEntry32;             //用于查找进程
            Found:boolean;                           //用于判断进程是否历遍完成
    begin
          Result:=false;
          hSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);   //获取系统进程列表
          lppe.dwSize:=SizeOf(TProcessEntry32);   //在调用Process32First   API之前,需要初始化lppe记录的大小
          Found:=Process32First(hSnapshot,lppe);   //将进程列表的第一个进程信息读入lppe记录中
          while   Found   do
          begin
              if   (UpperCase(ExtractFileName(lppe.szExeFile))=UpperCase(aFileName))   or   (UpperCase(lppe.szExeFile)=UpperCase(aFileName))   then
              begin
                  Result:=true;
                  break;
              end;
              Found   :=   Process32Next(hSnapshot,   lppe);   //将进程列表的下一个进程信息读入lppe记录中
          end;
    end;

    调用:
    if FindProcess( ‘ZC020.EXE’) then


  • 相关阅读:
    ubuntu12.04 安装完XRDP显示空白桌面
    安装完CUDA Toolkit,VS2010调试项目控制台一闪而过
    控制台连接oracle11g报ORA-12560异常
    @Autowired和@Resource
    @Autowire和@Resource区别
    springMVC
    springmvc常用注解标签详解
    Spring/SpringMvc 配置文件常用标签解释
    java中volatile不能保证线程安全(实例讲解)
    volatile关键字解析
  • 原文地址:https://www.cnblogs.com/luckForever/p/7255264.html
Copyright © 2011-2022 走看看