如何取得系统默认邮件发送程序的相关信息？(5分)

获取系统默认邮件发送程序的程序名（比如outlook express或foxmail等），
如果是outlook，取得其版本号
怎样才能做到啊？

procedure TForm1.Button1Click(Sender: TObject);
var
; ARegistry:TRegistry;
; mailsoft:string;
begin
; ARegistry := TRegistry.Create;
; with ARegistry do
; ; begin
; ; ; RootKey:=HKEY_CLASSES_ROOT;
; ; ; if OpenKey('/mailto/shell/open/command',false) then
; ; ; ; ;mailsoft:=ReadString('');
; ; ; CloseKey;
; ; ; free;
; ; end;
; showmessage(mailsoft);
end;
//你自己分析一下，从mailsoft变量中分析出文件路径，再读取exe文件的版本信息即可。
//分数太少了吧，

呵呵，我的全部“家当”就这五分了，真是不好意思，谢谢啦：）

接受答案了.