1.<br>shellExecute(mainForm.handle,<br> nil,<br> 'write.exe',<br> 'myfile.rtf /p',<br> nil,<br> SW_HIDE);<br>2.ShellExecute(Handle, 'open', 'control', 'date/time', nil, SW_SHOW); <br>3.ShellExecute(Handle, 'open', 'notepad.exe', nil, '', SW_NORMAL);<br>4.ShellExecute(Handle, 'open', 'control', 'date/time', nil, SW_SHOW); <br>5.ShellExecute(0,nil,'regedit.exe','myfile.reg /v',nil,SW_SHOW); <br>6.ShellExecute(Handle, 'open', 'rundll',<br>'shell32.dll,SHHelpShortcuts_RunDLL AddPrinter', '', SW_SHOWNORMAL); <br>7.procedure TForm1.Label1Click(Sender: TObject);<br>begin<br>Shellexecute(handle,nil,pchar('mailto:guihong@163.net'),nil,nil,sw_shownormal);<br>end;<br><br><br><br><br>