用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);
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);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货