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


  • 相关阅读:
    从运维角度浅谈 MySQL 数据库优化
    好的架构不是设计出来的,而是演进出来的
    京东咚咚架构演进
    大型网站的架构
    MySQL开发规范
    MySQL 5.6的72个新特性(译)
    MySQL数据库运维的五大指标
    MySQL5.0、5.1、5.5、5.6功能进化
    MySQL各版本的区别
    ajax该什么时候用
  • 原文地址:https://www.cnblogs.com/luckForever/p/7255264.html
Copyright © 2011-2022 走看看