Find the default application for dealing with certain types
Posted: Sun Apr 25, 2004 4:18 pm
Code updated for 5.20+
Thought this was pretty cool - thanks to MLK!
Code: Select all
file.s="test.pdf"
file_dir.s="c:\"
exe_path.s=Space(256)
CreateFile(0,file_dir+file)
FindExecutable_(file,file_dir,@exe_path)
CloseFile(0)
DeleteFile(file_dir+file)
Debug exe_path