uses shellapi; procedure ShellHttp(Sr:String); begin if sr<>' then shellexecute(application.handle,'open',pchar(sr),nil,nil,SW_SHOWNORMAL) else mymsgbox('是空的','^^',mb_ok);
1)可以打开目录 shellhttp('c:\a'); 2)如果文件关联正常的文件可以用他打开shellhttp('c:\b.txt') 3)可以打开OUTLOOK发送邮件: procedure ShellEMail(Sr:String); begin if sr<>' then shellexecute(application.handle,nil,pchar('mailto:'+sr),nil,nil,SW_SHOWNORMAL) else mymsgbox('是空的','^^',mb_ok);