我正在使用这个功能,效果很好.
function GetDllName: string;
var
pName: PChar;
begin
GetMem(pName, 200);
windows.GetModuleFileName(HInstance, pName, 200);
Result := string(pName);
FreeMem(pName);
end;
Run Code Online (Sandbox Code Playgroud)
归档时间: |
|
查看次数: |
3242 次 |
最近记录: |