TRegistry

[derhoeppi]

Hey Christian
Ich hab jetzt mal deine zwei genannten Fehler korrigiert, aber es funzt mit dem Reg.OpenKeyReadOnly nicht mehr. Also mein neuer Quellcode:

Delphi-Quellcode:

unit regzugriff;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Registry;

type
  TForm1 = class(TForm)
    pb_test: TBitBtn;
    Text: TLabel;
    Ja: TButton;
    Nein: TButton;
    procedure pb_testClick(Sender: TObject);
    procedure NeinClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.pb_testClick(Sender: TObject);
var
    Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    if not Reg.OpenKeyReadonly('\.ppt', True) then
    begin
      //pptv install
      pb_test.Caption := '&install'
    end;
  finally
    Reg.CloseKey;
    Reg.Free;
   end;
end;

procedure TForm1.NeinClick(Sender: TObject);
begin
close;
end;

end.

Wie ihr sehen könnt hab ich das ganze noch etwas geändert, weil ich eben auch mitbekommen habe, dass ich um den ButtonClick nicht herumkomme - ist zwar schade aber damit muss ich wohl Leben. Ich habe dafür ein Label für den Text erstellt und dann noch zwei Button (Ja/Nein zur Beantwortung der Frage aus dem Label). Wenn Nein angeklickt wird wird das ganze geschlossen, wenn Ja sollte die Überprüfung für den Viewer dargestellt werden.


Ich schreibe gleich noch eine Antwort bei der ich mal die Struktur meines Programms nennen möchte.