安装程序放设置了一个桌面快捷方面在桌面上引的重大问题

Question

执行桌面上对应的应用程序
如果有文件保存操作，则自动会将文件保存在桌子面上，晕呀
如果没有桌面快捷方式则一切正常
这应该如何解决

Answer 1

保存时不要只存文件名，还应该带上路径
相关资料：
取当前程序所在路径：ExtractFilePath(Application.ExeName)
所以存文件时应该
....SaveToFile(ExtractFilePath(Application.ExeName)+'Data\myfile.dat');

Answer 2

谢谢，这样这一句就出错了：
ShellExecute(handle, 'Open', ExtractFilePath(Application.ExeName)+'tes.txt', '', '', SW_SHOWNORMAL);这样写就没有问题
ShellExecute(handle, 'Open', 'tes.txt', '', '', SW_SHOWNORMAL);

Answer 3

保存时不要只存文件名，还应该带上路径
相关资料：
取当前程序所在路径：ExtractFilePath(Application.ExeName)
所以存文件时应该
....SaveToFile(ExtractFilePath(Application.ExeName)+'Data\myfile.dat');RE：
这样还是不对，这个问题还存在！太着急结贴了！！^_^