在user后添加ShellAPI
ShellExecute(Handle,'open','Explorer.exe','目录',nil,1);                                                            //打开目录
ShellExecute(handle,'open','程序','-s','',SW_SHOWNORMAL);                                               //打开程序
ShellExecute(handle,nil,PChar('http://dekill.ycool.com/'),nil,nil,SW_SHOWNORMAL);     //超链接

Posted on 2011-03-23 22:33  dekill  阅读(365)  评论(0编辑  收藏  举报