paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 15:58:34 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -116,9 +116,13 @@ begin
Result:=0; Result:=0;
S:=Key; S:=Key;
Rel:=RelativeKey(S); Rel:=RelativeKey(S);
if not(Rel) then if not(Rel) then
Delete(S,1,1); 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); RegOpenKeyEx(GetBaseKey(Rel),PChar(S),0,FAccess,Result);
{$endif WinCE}
end; end;