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

Fix for Mantis #23765 .

Browse Source 
packages/fcl-base/src/fileinfo.pp, TVersionInfo.Load:
  * use PWideChar instead of PChar if "UNICODE" is defined (e.g. on WinCE)

git-svn-id: trunk@23528 -
This commit is contained in:
svenbarth 2013-01-27 21:04:05 +00:00
parent cb85846507
commit bb00325d85
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/fileinfo.pp
View File

@ -202,7 +202,7 @@ var
Stream: TResourceStream; Stream: TResourceStream;
begin begin
FreeResources; FreeResources;
Stream := TResourceStream.CreateFromID(Instance, 1, PChar(RT_VERSION)); Stream := TResourceStream.CreateFromID(Instance, 1, {$ifdef UNICODE}PWideChar{$else}PChar{$endif}(RT_VERSION));
try try
FVersionInfo:=TVersionResource.Create; FVersionInfo:=TVersionResource.Create;
FVersionInfo.SetCustomRawDataStream(Stream); FVersionInfo.SetCustomRawDataStream(Stream);