paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Wallaby, mantis 0038382, load filename via -W function

Browse Source 
git-svn-id: trunk@49245 -
This commit is contained in:
marco 2021-04-22 15:11:38 +00:00
parent e31923c290
commit f0cc698a2f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/winunits-base/src/comserv.pp
View File

@ -205,9 +205,12 @@ end;
function GetModuleFileName: String;
const
MAX_PATH_SIZE = 2048;
var
FileName: WideString;
begin
SetLength(Result, MAX_PATH_SIZE);
SetLength(Result, Windows.GetModuleFileName(HInstance, @Result[1], MAX_PATH_SIZE));
SetLength(FileName, MAX_PATH_SIZE);
SetLength(FileName, Windows.GetModuleFileNameW(HInstance, @FileName[1], MAX_PATH_SIZE));
Result := FileName;
end;
function GetModuleName: String;