registrierung

[igel457]

wie wäre es mit einem Constructor für Registry?

Delphi-Quellcode:

procedure trial_komponente.activate;
var registry : tregistry;
begin
  if trial=true then 
  begin
    registry := TRegistry.Create;
    registry.RootKey:=HKEY_CURRENT_USER;
    if registry.KeyExists('testprog')= false then registry.CreateKey('testprog');
    registry.OpenKey('testprog',false);
    registry.WriteString('testprog','test');
    registry.CloseKey;
    registry.Free;
  //end trial
  end;
end;