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 校验注册码时的技巧

Delphi 图像翻转

Delphi读取android设备联系人.Delphixe6中编译通过

Delphi版 随机窗口类名

Delphi 关于 "高位" 与 "低位"

Delphi 判断字符串是否是单词

Delphi2010 编译变量$region用法

Delphi dbgrid应用

Delphi 模似键盘输入又一方法

Delphi richedit1 设置字体

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

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