How To: How to Invoke Default File Assocation Settings in Windows 10/11 [Solved]

[zxandris]

Would anyone know how to invoke this?

I've seen it on some applications that are able to invoke the default "control panel" app for setting default apps for files.  I was wondering if anyone knows how to do this.

Any help would be appreciated

CJ

[Fibonacci]

Code: Pascal  [Select][+][-]

1. uses Windows;
2.  
3. procedure OpenDefaultAppsSettings;
4. begin
5.   ShellExecute(0, 'open', 'ms-settings:defaultapps', nil, nil, SW_SHOWNORMAL);
6. end;
7.  
8. procedure OpenWith(path: string);
9. begin
10.   ShellExecute(0, 'open', 'rundll32.exe', PChar('shell32.dll,OpenAs_RunDLL '+path), nil, SW_SHOWNORMAL);
11. end;
12.  
13. begin
14.   // default apps settings
15.   OpenDefaultAppsSettings;
16.  
17.   // "open with..." dialog
18.   OpenWith('C:\yourfile.txt');
19. end.