Recent

Author Topic: How To: How to Invoke Default File Assocation Settings in Windows 10/11 [Solved]  (Read 834 times)

zxandris

  • Full Member
  • ***
  • Posts: 141
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
« Last Edit: December 18, 2024, 05:53:45 pm by zxandris »

Fibonacci

  • Hero Member
  • *****
  • Posts: 650
  • Internal Error Hunter
Re: How To: How to Invoke Default File Assocation Settings in Windows 10/11
« Reply #1 on: December 18, 2024, 05:39:29 pm »
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.

 

TinyPortal © 2005-2018