Windows 10: Im "Öffnen mit Dialog" fehlt der Haken für Standardanwendung

[t.roller]

Zitat von juergen:

Weiß jemand wie man über Delphi-Code dieses Fenster aufrufen kann?

Probiere:

Delphi-Quellcode:

procedure TForm1.Button10Click(Sender: TObject);
var FN: String;
begin
//Systemsteuerung\Alle Systemsteuerungselemente\Standardprogramme\Standardprogramme festlegen
FN:='/name Microsoft.DefaultPrograms /page pageDefaultProgram';
ShellExecute(0,nil,PChar('control.exe'),PChar(FN),'',SW_SHOWNORMAL);
end;

procedure TForm1.Button11Click(Sender: TObject);
var FN: String;
begin
//Systemsteuerung\Alle Systemsteuerungselemente\Standardprogramme\Dateizuordnungen festlegen
FN:='/name Microsoft.DefaultPrograms /page pageFileAssoc';
ShellExecute(0,nil,PChar('control.exe'),PChar(FN),'',SW_SHOWNORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
var FN: String;
begin
FN:='/name Microsoft.DefaultPrograms';
//Systemsteuerung\Alle Systemsteuerungselemente\Standardprogramme\
ShellExecute(0,nil,PChar('control.exe'),PChar(FN),'',SW_SHOWNORMAL);
end;

// oder:

procedure TForm1.Button2Click(Sender: TObject);
var FN: String;
begin
FN:='shell:::{17cd9488-1228-4b2f-88ce-4298e93e0966}';
//Systemsteuerung\Alle Systemsteuerungselemente\Standardprogramme\
ShellExecute(0,nil,PChar('explorer.exe'),PChar(FN),'',SW_SHOWNORMAL);
end;