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 运行js

Delphi access存储过程是带参数的查询语句

Delphi的常用条件编译指令

Delphi 判断两个时间差是否在一个指定范围内

Delphi 2010/xe下隐藏程序在系统任务栏的图标

Delphi webservices传base64字串

Delphi x 的 y 次方

Delphi firedac连接oracle

Delphi运行时拖拉、改变元件大小

Delphi获取u盘序列号的代码

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

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