根据进程PID获取程序所在路径的函数 x32-x64 d7-d2007-xe2通用支持（Delphi全网首发）

青旅半醒 2023-10-07 12:26 6阅读 0赞

{获取进程路径}
      //此函数64位进程无效，需调用GetProcessImageFileName（32位64位全能）  
      GetModuleFileNameEx(pHandle, 0, Path, Length(Path));

参考微软MSDN：

[getProcessImageFileNameA 函数 (psapi.h) - Win32 apps | Microsoft Learn][getProcessImageFileNameA _ _psapi.h_ - Win32 apps _ Microsoft Learn]

主要用到的API:

**GetProcessImageFileNameA**

**GetLogicalDriveStrings**

**OpenProcess**

**QueryDosDevice**

C++声明

DWORD GetProcessImageFileNameA(
      HANDLE hProcess,
      LPSTR  lpImageFileName,
      DWORD  nSize
    );

function GetProcessImageFileName(hProcess: Cardinal; lpImageFileName: LPSTR; nSize: DWORD): DWORD; stdcall;  external 'PSAPI.dll' name 'GetProcessImageFileNameA';
    
    
    {根据进程PID获取程序所在路径的函数  x32-x64 d7-d2007-xe2通用支持}
    function GetProcessExePath_x32_x64(PID: Cardinal): string;
    var
      buf:array [0..MAX_PATH-1] of char;
      m_Result:Integer;
      i,j:Integer;
      str_temp:string;
    
      pHandle: Cardinal;
      DosPath:array[0..MAX_PATH-1] of AnsiChar;   //必须定义为 AnsiChar ,否则获取的数据在XE2会乱码
      sDosDrive:array[0..MAX_PATH-1] of Char;
      sDriveList:TStringList;
    begin
      {获取驱动器列表}
      sDriveList:=TStringList.Create;
      m_Result:=GetLogicalDriveStrings(MAX_PATH,buf);
      for i:=0 to (m_Result div 4) do
      begin
        //str_temp:=string(buf[i*4]+buf[i*4+1]+buf[i*4+2]);    //C:\
        str_temp:=string(buf[i*4]+buf[i*4+1]);                 //C:
        sDriveList.Add(str_temp);
      end;
    
      {启用调试权限}
      //EnableDebugPriv;
      {获取进程句柄}
      pHandle := OpenProcess(PROCESS_QUERY_INFORMATION, False, PID);
    
      {获取进程路径}
      if GetProcessImageFileName(pHandle, DosPath, MAX_PATH+1) <>0 then  //该函数返回值为dospath长度，返回的第二个参数path数据为\Device\HarddiskVolume4\实用软件\DisplayX.exe这样的DOS路径。需转换
      begin
        for j:=0 to sDriveList.Count-1 do
        begin
          if QueryDosDevice(PChar(sDriveList.Strings[j]),sDosDrive ,MAX_PATH)<>0 then   //获取C:这样的NT盘符对应的\Device\HarddiskVolume1 这样的DOS路径
          begin
            if Pos(sDosDrive,DosPath)>0 then
            begin
              // Result:=sDriveList.Strings[j]+RightStr(DOSPath,Length(DOSPath)-StrLen(sDosDrive));   //WideString 长度用Length,PChar长度用StrLen，否则出错。
              Result:=sDriveList.Strings[j]+Copy(DOSPath,StrLen(sDosDrive)+1,Length(DOSPath)-StrLen(sDosDrive));  //delphi2007中使用此方法以免中文乱码
            end;
          end;
        end;
      end;
      sDriveList.Free;
      CloseHandle(pHandle);
      Form1.edit1.Text:=DosPath;
    end;

效果如下图：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doNDQ1MzA2_size_16_color_FFFFFF_t_70][]

**注：**如不提升进程权限为DEBUG权限，则OpenProcess无法打开system用户级别进程，导致GetProcessImageFileName无法正常工作。

本代码为作者全网首发原创，非粘贴复制得来。转载请注明出处！

[getProcessImageFileNameA _ _psapi.h_ - Win32 apps _ Microsoft Learn]: https://docs.microsoft.com/zh-cn/windows/win32/api/psapi/nf-psapi-getprocessimagefilenamea
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doNDQ1MzA2_size_16_color_FFFFFF_t_70]: https://img-blog.csdnimg.cn/20200410152055331.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doNDQ1MzA2,size_16,color_FFFFFF,t_70

发表评论取消回复

表情：

评论列表（有 0 条评论，6人围观）

还没有评论，来说两句吧...

相关阅读

相关 cocos2d-x ZIPDecompress函数实现

cocos2d-x 提供了一个名为 ZIPDecompress 的函数来实现 ZIP 解压缩。它通过解压缩指定文件到指定目录来实现 ZIP 解压缩。该函数的签名如下：

淡淡的烟草味﹌/ 2024年03月25日 13:09/ 0 赞/ 101 阅读

相关根据进程PID获取程序所在路径的函数 x32-x64 d7-d2007-xe2通用支持（Delphi全网首发）

{获取进程路径} //此函数64位进程无效，需调用GetProcessImageFileName（32位64位全能） GetModule

青旅半醒/ 2023年10月07日 12:26/ 0 赞/ 7 阅读

相关 Delphi 中GetLogicalDriveStrings 获取系统中可用的驱动器列表（D2007-XE2通用)

procedure TForm1.FormCreate(Sender: TObject); var buf:array [0..MAX_PATH-1

柔光的暖阳◎/ 2023年10月07日 12:22/ 0 赞/ 7 阅读

相关 redis存中文显示“\xe2\xe5\xb0\x8f\xe5\x87\xa1\x80\x9c\xe2\x80\x9d“解决方案

解决方案启动时加–row ./redis-cli --raw 127.0.0.1:6379> set xiaofan "小凡" OK

左手的ㄟ右手/ 2022年11月21日 15:12/ 0 赞/ 187 阅读

相关 cocos2d-x - ios7隐藏状态栏

1.打开Resources文件下的info.plist文件 2.在plist中添加一行,key为:View controller-based status bar appea

电玩女神/ 2022年08月24日 14:25/ 0 赞/ 203 阅读

相关 cocos2D-X源码分析之从cocos2D-X学习OpenGL（1）----cocos2D-X渲染结构

原文地址http://blog.csdn.net/bill\_man 从本篇文章开始，将分析cocos2D-X 3.0源代码，第一部分是从cocos2D-X学习OpenGL，

浅浅的花香味﹌/ 2022年08月06日 05:20/ 0 赞/ 135 阅读

相关 cocos2d-x 2.x 与 3.x 对照

Cocos2d-x 常用类名改变下面的表格中的类名的转换方式主要是直接删除了 CC 前缀。 ![QQ截图20141127094521.jpg][QQ_2014112709

柔光的暖阳◎/ 2022年08月06日 03:15/ 0 赞/ 230 阅读

相关在Windows7上搭建Cocos2d-x win32开发环境

在Windows7上搭建Cocos2d-x开发环境并不难，但是由于框架更新过快，很多用户都有困难。我希望你们认为这个教程有用。建议：为了避免安全相关的问题，请以管理员权限

ゝ一世哀愁。/ 2022年06月14日 01:10/ 0 赞/ 160 阅读

相关从Cocos2d-x2迁移到Cocos2d-x3的过程分享

转自：http://www.laodao8.com/listreply/8232.aspx 核心代码迁移相对顺利，大致流程如下：一、创建项目 1)

野性酷女/ 2022年05月13日 05:58/ 0 赞/ 208 阅读

相关 cocos2d-x box2d Demo讲解

勤奋努力，持之以恒！核心概念 Box2D 中有一些基本的对象,这里我们先做一个简要的定义,在随后的文档里会有更详细的描述。刚体(rigid body) 一块十分

刺骨的言语ヽ痛彻心扉/ 2022年05月13日 03:10/ 0 赞/ 247 阅读