delphi 取正在运行的DLL或EXE的路径

本文整理自网络，侵删。

 function GetSelfPath: string;
var
  ModuleName: string;
  i: Integer;
begin
  SetLength(ModuleName, 255);
  GetModuleFileName(HInstance, PChar(ModuleName), Length(ModuleName));
  i := LastDelimiter('\', ModuleName);
  Result := Copy(ModuleName, 1, i);
end;
 

相关阅读 >>

Delphi 字符串保存utf-8过程

Delphi 提升程序进程权限为debug权限

Delphi获取webbrowser中的元素的值

Delphi embeddedwb 遍历frames并执行子frame的js脚本

Delphi 实现产品编号批量生成简单算法

Delphi关闭进程

Delphi 中判断一个字符是中文的方法

Delphi firedac 下的 sqlite [4] - 创建数据库

Delphi 从 .lnk 文件获取真正路径的程序

Delphi实现二分查找

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 取正在运行的DLL或EXE的路径