paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-21 01:52:50 +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
rc,c : integer;
w : widestring;
begin
rc := GetLastError;
SetLength(Result,255);
C:=FormatMessageA(FORMAT_MESSAGE_FROM_SYSTEM,nil,rc,
SetLength(w,255);
C:=FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,nil,rc,
MakeLangId(LANG_NEUTRAL, SUBLANG_DEFAULT),
@Result[1], 255,nil);
SetLength(Result,c);
@W[1], 255,nil);
SetLength(w,c);
Result:=w;
end;
{$endif}