[gelöst] Verknüpfung mit Dateiendung und Leerzeichen

[nahpets]

Ändere dashier

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if InstallExt('.xyz', 'XYZDatei', 'Tolles Programm', ParamStr(0), '"%1"',0) then
   Showmessage('Dateiendung konnte erfolgreich registriert werden.');
end;

mal bitte so ab

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if InstallExt('.xyz', 'XYZDatei', 'Tolles Programm', '"' + ParamStr(0) + '"', '"%1"',0) then
   Showmessage('Dateiendung konnte erfolgreich registriert werden.');
end;