HKEY_LOCAL_MACHINE musste als Rootkey aus dem OpenKey raus.
Win2000 meckert da schon früher. Mein XP ist halt XP
Für alle die es brauchen der funktionierende Source:
Delphi-Quellcode:
procedure ReadFromRegistry;
var
reg : TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\CurrentControlSet\Services\Cdrom',true);
try bAutoRunCD := reg.ReadBool('AutoRun');
except
ShowMessage(SysErrorMessage(GetLastError));
bAutoRunCD := false;
end;
reg.CloseKey;
reg.Free;
end;
procedure WriteToRegistry;
var
reg : TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\CurrentControlSet\Services\Cdrom',true);
try reg.WriteBool('AutoRun',bAutoRunCD); except end;
reg.CloseKey;
reg.Free;
end;
Gott Segne euch
euer Andreas