Open the “Open with ” Dialog ...

[Axolotl]

If the user should be able to open a file and select the program himself ....

Code: Select all

Procedure OpenFileWithAppFromList(FileName.s) 
  If FileSize(FileName) > -1 
    RunProgram("Rundll32.exe", "shell32.dll,OpenAs_RunDLL "+FileName, GetPathPart(FileName)) 
  EndIf 
EndProcedure 

OpenFileWithAppFromList("C:\Temp\GX_Test_00.bmp") ; <= change this filename to an existing one.  

[Quin]

Nice, added to my Procedure collection.
Works on Windows 10 21H2 IoT. Thanks for sharing!