在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); //超链接
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); //超链接