Eigene Dateiendungen registrieren

[Luckie]

Probier mal den Code:

Delphi-Quellcode:

uses ComObj; 
const
  Extension = '.ella';
  Schluessel = 'Ellabetsch'; // Luckie? 
  Beschreibung = 'Irgendwas'; 
var
  Anwendung : string; 
procedure TForm1.RegisterButtonClick(Sender: TObject);
begin
  Anwendung := '"' + paramstr(0) + '" "%1"';
  try
    CreateRegKey(Extension,'',Schluessel);
    CreateRegKey(Schluessel,'',Beschreibung);
    CreateRegKey(Schluessel + '\shell\open\command','',Anwendung);
  except
    on EOleRegistrationError do
    ShowMessage('Mist! Hat nicht geklappt');
  end;
end; 
procedure TForm1.UnregisterButtonClick(Sender: TObject);
begin
  try
    DeleteRegKey(Extension);
    DeleteRegKey(Schluessel);
  except
  end;
end;