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

+ Disposition needs correct address when creating key

Browse Source
This commit is contained in:
michael 2003-02-19 10:46:00 +00:00
parent ee44541d17
commit dac0abce62
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/win32/winreg.inc
View File

@ -31,7 +31,7 @@ end;
function TRegistry.sysCreateKey(const Key: String): Boolean;
Var
P: PChar;
Disposition: LPDWord;
Disposition: Integer;
Handle: HKEY;
SecurityAttributes: Pointer; //LPSECURITY_ATTRIBUTES;
@ -46,7 +46,7 @@ begin
KEY_ALL_ACCESS,
SecurityAttributes,
Handle,
Disposition) = ERROR_SUCCESS;
@Disposition) = ERROR_SUCCESS;
RegCloseKey(Handle);
end;
@ -133,17 +133,22 @@ function TRegistry.OpenKey(const Key: string; CanCreate: Boolean): Boolean;
Var
P: PChar;
Handle: HKEY;
Disposition: LPDWord;
Disposition: Integer;
SecurityAttributes: Pointer; //LPSECURITY_ATTRIBUTES;
begin
SecurityAttributes := Nil;
P:=PrepKey(Key);
If CanCreate then
begin
Handle:=0;
Result:=RegCreateKeyEx(GetBaseKey(RelativeKey(Key)),P,0,'',
REG_OPTION_NON_VOLATILE,
fAccess,SecurityAttributes,Handle,
Disposition)=ERROR_SUCCESS
@Disposition)=ERROR_SUCCESS
end
else
Result:=RegOpenKeyEx(GetBaseKey(RelativeKey(Key)),
P,0,fAccess,Handle)=ERROR_SUCCESS;