谁帮我看看什么地方有错啊，谢先。

Question

以下程序可以运行，可是没有调用成功（win2000+delphi6.0）
在命令提示符下可以执行start mailto;[email protected]啊
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellAPI;type
  Tform1 = class(TForm)
    Label1: TLabel;
    txtTo: TEdit;
    cmdSend: TButton;
    procedure cmdSendClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  form1: Tform1;implementation{$R *.DFM}procedure Tform1.cmdSendClick(Sender: TObject);
begin
    if Length(Trim(txtTo.Text)) = 0 then
        MessageDlg('Please enter the E-Mail Address.', mtError, [mbOk], 0)
    else
    try
        ShellExecute(form1.handle, nil, PChar('start mailto: ' + Trim(txtTo.Text)), Nil, Nil, SW_SHOW);
    except
        exit;
    end;
end;end.

Answer 1

ShellExecute(handle, nil, PChar('mailto: ' + Trim(txtTo.Text)), Nil, Nil, SW_SHOW);