registrierung

[mr.unbekannt]

ich möchte iene komponente schrieebn, die auch werte in die registrierung shchriebt, nun habe ich das problem, das beim ausführen dieser komponente ein access error entshte, weiß abe rnet wo der fehelr ist! hier der quelltext:

Delphi-Quellcode:

unit rial_komponente;

interface

uses
  SysUtils, Classes;

type
  trial_komponente = class(TComponent)
  private
       { Private declarations }
  protected
    { Protected declarations }
    ftrial:boolean;
    fbenutzung:boolean;
    ftrialtime:integer;
  public
    { Public declarations }
  published
  property Trialtime: integer read ftrialtime write ftrialtime;
    property Trial: boolean read ftrial write ftrial;
    property Benutzung: boolean read fbenutzung write fbenutzung;
    procedure activate; virtual;
    { Published declarations }
  end;

procedure Register;

implementation
uses dateutils,Windows, Messages, registry;


procedure Register;
begin
  RegisterComponents('Standard', [trial_komponente]);
end;

procedure trial_komponente.activate;
var registry : tregistry;
begin
if trial=true then begin
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;


end.

danke für alle antworten, ich dnek mal ne möglichkeit könnten bei den uses ein.

[igel457]

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

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;

[mr.unbekannt]

öhm, sory da muss ich passen, was meinste?
imme ridese editierer, sry. ich dneke ich weiß was du meinst, ich probier mal!

[igel457]

hab oben noch angehängt, was ich meine :-D