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 webbrowser 操作记要

Delphi fdlocalsql使用方法

Delphi 在内存中直接运行exe类型的资源文件

Delphi编程实现图像的淡入浅出

Delphi制作移动文字、图片

Delphi在richedit控件中插入gif动画表情

Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码

Delphi tms web core直接从html&css设计的页面布局

Delphi 跨平台打开网址链接

Delphi文件分割合并

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

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