zoukankan      html  css  js  c++  java
  • 通过进程ID获取进程名

    uses TLhelp32
    function GetProcessNameById(const AID: Integer): String;
    var     
    h:thandle;     
    f:boolean;     
    lppe:tprocessentry32;
    begin     
    Result := '';     
    h := CreateToolhelp32Snapshot(TH32cs_SnapProcess, 0);     
    lppe.dwSize := sizeof(lppe);     
    f := Process32First(h, lppe);     
    while integer(f) <> 0 do     
    begin       
    if Integer(lppe.th32ProcessID) = AID then       
    begin         
    Result:= StrPas(lppe.szExeFile);         
    break;       
    end;       
    f := Process32Next(h, lppe);     
    end;
    end
    
  • 相关阅读:
    JasperReport
    Linux
    Linux
    Linux
    Linux
    Groovy
    Linux
    VS
    Aliyun
    Linux
  • 原文地址:https://www.cnblogs.com/delphi7456/p/1854300.html
Copyright © 2011-2022 走看看