Auf die Registry zugreifen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Ab Windows 95 sollten Programmeinstellungen nicht mehr in INI-Dateien abgelegt, sondern in der Registrierungsdatenbank ("Registry") gespeichert werden. Das geht folgendermaßen:
uses Registry;
procedure speichern_in_registry;
var regist: TRegistry;
begin
regist := TRegistry.Create;
try
regist.RootKey := HKEY_LOCAL_MACHINE; //voreingestellt ist HKEY_CURRENT_USER
regist.OpenKey('SOFTWARE\Firma\Produkt\Version',true);
//bei true wird Schlüssel erzeugt, wenn er noch nicht existiert
regist.WriteString('Schlüssel', 'Wert');
regist.WriteInteger('Zahl',123);
finally
regist.Free;
end;
end;
procedure lesen_aus_registry;
var regist: TRegistry;
i: integer;
s: string;
begin
regist := TRegistry.Create;
try
regist.RootKey:=HKEY_LOCAL_MACHINE;
regist.OpenKey('SOFTWARE\Firma\Produkt\Version', true);
s:=regist.ReadString('Schlüssel');
i:=regist.ReadInteger('Zahl');
finally
regist.Free;
end;
end;
procedure speichern_in_registry;
var regist: TRegistry;
begin
regist := TRegistry.Create;
try
regist.RootKey := HKEY_LOCAL_MACHINE; //voreingestellt ist HKEY_CURRENT_USER
regist.OpenKey('SOFTWARE\Firma\Produkt\Version',true);
//bei true wird Schlüssel erzeugt, wenn er noch nicht existiert
regist.WriteString('Schlüssel', 'Wert');
regist.WriteInteger('Zahl',123);
finally
regist.Free;
end;
end;
procedure lesen_aus_registry;
var regist: TRegistry;
i: integer;
s: string;
begin
regist := TRegistry.Create;
try
regist.RootKey:=HKEY_LOCAL_MACHINE;
regist.OpenKey('SOFTWARE\Firma\Produkt\Version', true);
s:=regist.ReadString('Schlüssel');
i:=regist.ReadInteger('Zahl');
finally
regist.Free;
end;
end;
Außer WriteString und WriteInteger gibt es auch noch WriteBinaryData, WriteBool, WriteCurrency, WriteDate, WriteDateTime, WriteExpandString, WriteFloat und WriteTime. Und das Entsprechende natürlich auch mit Read...Weitere Infos zur Registry finden Sie auch in unserem Tutorial.