Delphi og Windows registrerings Database

Her er der lige 2 funktioner du kan bruge:

procedure regadd(Rootkey: HKEY; Key: string; Name: String; value: string);
var
  reg: Tregistry;
begin
  reg:=Tregistry.create;
  reg.rootkey:=rootkey;
  reg.OpenKey(key,true);
  reg.writestring(name,value);
  reg.free;
end;

function regread(Rootkey: HKEY; Key: string; Name: String):string;
var
  reg: Tregistry;
begin
  reg:=Tregistry.create;
  reg.rootkey:=rootkey;
  reg.OpenKey(key,true);
  result:=reg.readstring(name);
  reg.free;
end

De er godt nok ikke til D2, men du kan nemt rette dem til.

Mon ikke D2 "æder dem som de er" ?