用shellexecute()这个函数,可以实现连接特定的网页和发送mail。
HINSTANCE ShellExecute(    HWND hwnd, // handle to parent window
    LPCTSTR lpOperation, // pointer to string that specifies operation to perform
    LPCTSTR lpFile, // pointer to filename or folder name string
    LPCTSTR lpParameters, // pointer to string that specifies executable-file parameters 
    LPCTSTR lpDirectory, // pointer to string that specifies default directory
    INT nShowCmd  // whether file is shown when opened
   );
例如:
shellexecute(handle,nil,pchar('http://www.csdn.net'),nil,nil,sw_shownormal);
shellexecute(handle,nil,pchar('ftp://ftp.inprise.com'),nil,nil,sw_shownormal);
shellexecute(handle,nil,pchar('mailto:[email protected]'),nil,nil,sw_shownormal);