本文整理自网络，侵删。
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 xe 泛型数组和splitstring处理数据
Delphi system.net.httpclient 下载
Delphi tnethttpclient https忽略证书验证
更多相关阅读请进入《Delphi》频道 >>
