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

* FormatMessageA -> FormatMessage (W version)

Browse Source 
git-svn-id: trunk@21937 -
This commit is contained in:
michael 2012-07-18 09:17:30 +00:00
parent 8a9bd38cd7
commit 252c2bbc83
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/wince/dynlibs.inc
View File

@ -63,14 +63,16 @@ Function GetLoadErrorStr: string;
Var Var
rc,c : integer; rc,c : integer;
w : widestring;
begin begin
rc := GetLastError; rc := GetLastError;
SetLength(Result,255); SetLength(w,255);
C:=FormatMessageA(FORMAT_MESSAGE_FROM_SYSTEM,nil,rc, C:=FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,nil,rc,
MakeLangId(LANG_NEUTRAL, SUBLANG_DEFAULT), MakeLangId(LANG_NEUTRAL, SUBLANG_DEFAULT),
@Result[1], 255,nil); @W[1], 255,nil);
SetLength(Result,c); SetLength(w,c);
Result:=w;
end; end;
{$endif} {$endif}