TRegistry

[derhoeppi]

Hey Leutz
Momentan bin ich richtig glücklich, weil dieses Prog soweit läuft.

Delphi-Quellcode:

unit regzugriff;

interface

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

type
  TForm1 = class(TForm)
    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\PowerPoint.Show.8') then
    begin
     ShellExecute(Handle, nil, 'ppview97.exe', nil, nil, SW_SHOW );
      Ja.Caption := 'Installation'
    end;
  finally
    Reg.CloseKey;
    Reg.Free;
    inherited;
  end;
end;

procedure TForm1.NeinClick(Sender: TObject);
begin

close;
end;


end.

So weit sieht es meiner Meinung nach gut aus. Jetzt muss nur noch die Anweisung rein, wenn positiv überprüft wurde das die Präsentation gestartet wird.