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