var x:cardinal;
begin
{Internet 选项}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0',9);
{----------------------调用错误----------------------}
if x=0 then messagebox(0,'程序超出内存','错误',0);
if x=ERROR_BAD_FORMAT then messagebox(0,'该程序非一个合法的Win32.EXE程序).','错误',0);
if x=ERROR_FILE_NOT_FOUND then messagebox(0,'指定文件没找到','错误',0);
if x=ERROR_PATH_NOT_FOUND then messagebox(0,'指定路径没找到','错误',0);
end;
//邮件
uses Registry;
function GetMail:string;
var Reg:Tregistry
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
if Reg.OpenKey('mailto/shell/open/command',false) then Result:=Reg.ReadString('')
else Result:='None';
Reg.CloseKey;
Reg.Destroy
end;
procedure TMainForm1.ToolsMailClick(Sender: TObject);
begin
WinExec(PChar(GetMail),0)
end;
我背的，可能有些字母打错了。给分吧。谢谢。
