🚀 go-pugleaf

"JVB" <jvbsoft.verwijder.dit@pandora.be> schreef in bericht
news:Pr1Yb.3207$yt5.118901@phobos.telenet-ops.be...
> Hoe kan ik met Delphi code een "codewoord" in het register bakken ??
Gebeurt
> met TRegistry , maar hoet moet het dan verder ??     Dank ......
>

Hier hopelijk een normaal antwoord.
Er worden 2 globaal gedeclareerde variabelen gelzezen en geschreven. Ik neem
aan dat dit voldoende basis is.


procedure TfMain.GetRegister;
var
  reg: TRegistry;
begin
  gProfile:='';
  gLastDir:='';
  reg:=TRegistry.Create;
  try
    reg.RootKey:=HKEY_LOCAL_MACHINE;
    reg.OpenKey('Software\Companyname\'+cAppName+'\'+cAppVersion,true);
    if reg.ValueExists('gProfile') then
gProfile:=reg.ReadString('gProfile');
    if reg.ValueExists('gLastDir') then gLastDir:=reg.ReadString('gLastDir')
  finally
    reg.free;
    end;
  end;

procedure TfMain.SetRegister;
var
  reg: TRegistry;
begin
  reg:=TRegistry.Create;
  try
    reg.RootKey:=HKEY_LOCAL_MACHINE;
    reg.OpenKey('Software\Companyname\'+cAppName+'\'+cAppVersion,true);
    reg.WriteString('gProfile',gProfile);
    reg.WriteString('gLastDir',gLastDir);
  finally
    reg.free;
    end;
  end;