Delphi 获取程序运行路径函数GetSelfPath
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;
如果觉得文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
作者:YXGust
出处:https://www.cnblogs.com/YXGust/p/16576857.html
版权:本作品采用「署名-非商业性使用-相同方式共享 4.0 国际」许可协议进行许可。
本博文版权归本博主所有,转载请注明原文链接