Function ExecuteFile(const FileName, Params, DefaultDir: string;ShowCmd: Integer): THandle; 是最简单的执行文件调用方法。
演示的程序如下:
executefile(′c:\winamp\winamp.exe′,
'winamp.m3u′,'d:\mp3\′,0);
这段程序就是我编写的定时启动播放音乐程序的一部分,仅供大家参考。
提示:最为有趣的是如果在输入的参数中填入的不是可执行文件名,而是某个数据文件如DOC文件,它会自动调用相应的程序打开(如Word)。通过这一功能还可以实现,自动发送E-mail,自动访问指定网站的功能。
executefile(′mailto:delphi32@infoworld.sh.cn′,″,″,0);
简单的语句实现了调用默认电子邮件程序向我发信的功能。
executefile(′http://delphi.sq.sh.cn′,″,″,0);/
立即可以拨号上网看到我的主页
executefile(′d:\mp3\cd01\001.mp3′,″,″,0);
立即调用默认的MP3播放程序播放这首歌曲。
8:问题集一中介绍的ExecuteFile()函数为什么在使用时出现错误,甚至无法使用?
答:首先,必须将声明加入程序,而且不要在form的OnCreate中调用,因为调用Form-OnCreate时数据未初始化,就会出现非法读取内存错误。