TRegistry

[derhoeppi]

Hallo Leutz
Ich hab nun seit heut Nachmittag etwas gelesen und mein Grundgerüst geschrieben. Allerdings ist es noch nicht so, dass ich sagen kann so möchte ich es lassen.Zum Beispiel startet die Anwendung jetzt erst, wenn ich den Button betätige - ich will aber das es automatisch startet (anders hab ich es in der Schule noch nicht gelernt). Weiterhin hab ich auch noch nicht gelernt wie ich eine Datei aufrufe. Ich möchte ja wenn Powerpoint oder der Viewer nicht installiert ist, dass der Viewer installiert wird.
Hier mal mein momentaner 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;
    procedure pb_testClick(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.OpenKey('\.ppt', True) then
    begin
      //pptv install
      pb_test.Caption := '&install'
    end;
  finally
    Reg.Free;
    inherited;
  end;
end;

end.