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

2022-10-14 14:33:59 作者：admin

本文整理自网络，侵删。

 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 IdHttpServer实现webservic 下一篇：Delphi url 中文编解码