Programm als Standard

[arbu man]

hier mit kanst die Endung registieren und dann:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if paramcount <> 0 then
  begin
    if paramstr(1) <>'' then 
    begin
      //anweisungen mit filename um datei zu öffnen
    end;
  end;
end;