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

* fixed WinCE compilation

Browse Source 
git-svn-id: trunk@7072 -
This commit is contained in:
florian 2007-04-07 18:23:24 +00:00
parent d90bc77a54
commit 3b3162062a
1 changed files with 5 additions and 1 deletions

6
packages/fcl-registry/src/winreg.inc
View File

@ -116,9 +116,13 @@ begin
Result:=0;
S:=Key;
Rel:=RelativeKey(S);
if not(Rel) then
if not(Rel) then
Delete(S,1,1);
{$ifdef WinCE}
RegOpenKeyEx(GetBaseKey(Rel),PWideChar(WideString(S)),0,FAccess,Result);
{$else WinCE}
RegOpenKeyEx(GetBaseKey(Rel),PChar(S),0,FAccess,Result);
{$endif WinCE}
end;