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

* Patch to fix createevent call on wince if the last param

Browse Source 
is nil. (last param contains security settings not   available on wince?). Patch
   by Fabio, Mantis #20280

git-svn-id: trunk@19138 -
This commit is contained in:
marco 2011-09-18 10:53:48 +00:00
parent 528f7fbb06
commit e343e6263b
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/wince/system.pp
View File

@ -506,8 +506,12 @@ function CreateEvent(lpEventAttributes:pointer;bManualReset:longbool;bInitialSta
var
buf: array[0..MaxPathLen] of WideChar;
begin
AnsiToWideBuf(lpName, -1, buf, SizeOf(buf));
CreateEvent := CreateEventW(lpEventAttributes, bManualReset, bInitialState, buf);
if lpName=nil then
CreateEvent := CreateEventW(lpEventAttributes, bManualReset, bInitialState, nil)
else begin
AnsiToWideBuf(lpName, -1, buf, SizeOf(buf));
CreateEvent := CreateEventW(lpEventAttributes, bManualReset, bInitialState, buf);
end;
end;
function EventModify(h: THandle; func: DWORD): LONGBOOL;