ShellExecute

Uses rmt
..., ShellAPI; rmt
lpHwnd: HWND; 淘宝女装
lpOperation, lpFile, lpParameters, lpDirectory: String;
Begin
lpHwnd:= GetDesktopWindow();
lpOperation:= 'open';
lpFile:= 'mailto:' + 'Maple119@t' + '?'
+ '&cc=' + 'balaba960808@163.com'
+ '&bcc=' + 'lyf.kibosoft.com'
+ '&subject=' + ''
+ '&body='+
+ '&File=' +
lpParameters:= '';
lpDirectory:= '';
ShellExecute(lpHwnd, pChar(lpOperation),
pChar(lpFile), pChar(lpParameters),
pChar(lpDirectory), SW_SHOWNORMAL);
End