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

[juergen]

Hallo zusammen,

meine Suche brachte keine Ergebnisse. Ich habe einiges an Aufrufparametern für OpenWith.exe ausprobiert, ohne Ergebnisse.
Ich habe etwas in C++ auf der MSDN Seite gefunden, weiß aber erstens nicht ob mir das überhaupt hilft und wie ich das in Delphi anwenden müsste.
MSDN

Code:

--C++

HRESULT SHOpenWithDialog(
  _In_opt_*******HWND ******hwndParent,
  _In_*****const OPENASINFO *poainfo
);

Dieser neue Open-with-Dialog besteht erst seit Windows 8 -denke ich- und da wird mir wahrscheinlich meine o.g. gefundenen MSDN-Infos auch nicht weiter helfen.

Mein jetziger Workaround: Ich erzeuge eine temporäre Datei von meinem Dateityp. Öffne dann den Explorer und der Benutzer muss dann selbst den "Öffnen-mit-Dialog" für diesen Dateityp auswählen. Ist natürlich unschön.
Bin also weiterhin für jeden Hinweis dankbar!

[mkinzler]

Das Verhalten ist von Microsoft so gewollt.

[jaenicke]

Wenn du eine Dateierweiterung auf die herkömmliche Weise über die Registry registrierst, sollte beim nächsten Mal, wenn der Benutzer eine solche Datei anklickt, angeboten werden, dass es ein neues Programm dafür gibt.
Das ist eigentlich der vorgesehene Ablauf.

Nichtsdestotrotz registriert z.B. der Installer von Delphi die Erweiterungen auch unter Windows 10 fest, es muss also möglich sein.

Zitat von juergen:

Ich habe etwas in C++ auf der MSDN Seite gefunden, weiß aber erstens nicht ob mir das überhaupt hilft und wie ich das in Delphi anwenden müsste.

In Delphi anwenden wäre einfach, du musst die Funktion, wenn sie nicht in Delphi selbst oder in der JEDI API Library drin ist, deklarieren und dazu die Struktur, die du als Parameter brauchst.
Aber in der Doku steht doch auch gleich:

Zitat:

Starting in Windows 10, the OAIF_ALLOW_REGISTRATION, OAIF_FORCE_REGISTRATION, and OAIF_HIDE_REGISTRATION flags will be ignored by SHOpenWithDialog. The Open With dialog box can no longer be used to change the default program used to open a file extension. You can only use SHOpenWithDialog to open a single file.

Es wird dir also gar nichts bringen, da das der von dir schon aufgerufene Dialog ist, nur sauber aufgerufen.

Es kann durchaus sein, dass nur der Windows Explorer den Dialog noch mit dem Häkchen anzeigen darf. Es haben eben zu viele Programme hinter dem Rücken der Anwender Schindluder getrieben... das trifft dann natürlich auch alle, die vorher sauber den Benutzer gefragt haben... aber da ist für Microsoft dann immer die Frage was das kleinere Übel ist.

[juergen]

Danke euch beiden!
Dass das ein Sicherheitsaspekt seitens MS sein kann, leuchtet ein. Dann werde ich wohl bei meinem Workaround bleiben (müssen).
Da es in meinem Fall um eine schon registrierte Dateiendung geht (m3u, also Playlist), der Benutzer aber ein anderes Programm wie das vor eingestellte Groove auswählen können soll, bleibt mir wohl keine andere Möglichkeit.

Einen schönen Feiertag noch!

[juergen]

Hallo zusammen,

bei der Installation eines neuen Programms habe ich heute gesehen wie es wohl richtig gemacht werden könnte.
Nach dem Setup ging das Fenster von "Standardprogramme festlegen" auf. Dort konnte ich festlegen für welche Dateiendungen dieses neue Programm zuständig sein soll.

Weiß jemand wie man über Delphi-Code dieses Fenster aufrufen kann? (Bild im Anhang)

Zu finden unter
Systemsteuerung | Standardprogramme | Standardprogramm festlegen => Standards für dieses Programm festlegen

Vielen Dank schon mal vorab!

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