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

[hoika]

Hallo,
hier ist ein Link, allerdings nicht für Delphi.

http://stackoverflow.com/questions/2...-windows-8-8-1

[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;

[juergen]

@hoika,
danke für den Link! Das muss ich mir anschauen wenn ich etwas mehr Zeit habe.

@t.roller ,
danke für deine Hilfe!
Direkt der erste Aufruf scheint das zu sein was meinem Wunsch am nächsten kommt.

Euch einen schönen Abend!