TRegistry

[derhoeppi]

Hey
Ich hab inzwischen mal weiter gemacht und bin jetzt auf ein anderes Problem gestoßen. Und zwar hab ich eben die Erfahrung gemacht, dass nach einer Windowsinstallation in der Registry die .ppt schon auf ein Programm verweist. Das beste ist, dass das Programm PowerPoint 4.0 ist. Ich kann damit allerdings keine Präsentationen öffnen. Dadurch wird meine Überprüfung immer negativ ausfallen, so dass der Viewer nicht installiert wird. Wie kann ich das jetztz noch realisieren???
Mein neuer Quelltext:

Delphi-Quellcode:

 unit regzugriff;

interface

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

type
  TForm1 = class(TForm)
    pb_test: TBitBtn;
    Text: TLabel;
    Ja: TButton;
    Nein: TButton;
    Button1: TButton;
    procedure pb_testClick(Sender: TObject);
    procedure NeinClick(Sender: TObject);
    procedure Button1Click(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') then
    begin
     ShellExecute(Handle, nil, 'ppview97.exe', nil, nil, SW_SHOW );
      pb_test.Caption := '&install'
    end;
  finally
    Reg.CloseKey;
    Reg.Free;
    inherited;
  end;
end;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'ppview97.exe', nil, nil, SW_SHOW )
end;
end.