谈Delphi下Internet的编程技巧(一)[3]

3.获得和设置默认的e-mail 收发软件的函数

下面的函数是通过读取注册表的设置后,得到默认e-mail收发软件所在地址

function getdefaultmail : string;

var

reg : tregistry;

begin

  reg:=tregistry.create;

  reg.rootkey:=hkey_classes_root;

  if reg.keyexists('mailto\shell\open\command') then

  begin

    reg.openkey('mailto\shell\open\command',false);

    result:=reg.readstring('');

  end

  else

    result:='';

  reg.free;

end;

4.设置默认邮件箱

procedure setdefaultmail(cmdline : string);

var

reg : tregistry;

begin

  reg:=tregistry.create;

  reg.rootkey:=hkey_classes_root;