unit1.pas

来自「《Delphi深度历险》附书源码 Delphi学习书本」· PAS 代码 · 共 51 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellAPI;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Memo1: TMemo;
    procedure MailToURLClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  
var
  Form1: TForm1;
  
implementation

{$R *.DFM}

procedure TForm1.MailToURLClick(Sender: TObject);
const
  URLs: array[0..4] of string  =
    ('mailto:[e-mail]',
    'mailto:[e-mail]?to=[e-mail]&to=[e-mail]',
    'mailto:[e-mail]?subject=Hello&body=RUNPC%20Sample',
    'mailto:[e-mail]?cc=[e-mail]&subject=Test',
    'mailto:[e-mail]?body=');
var
  S: string;
begin
  S := URLs[(Sender as TLabel).Tag];
  if (Sender as TLabel).Tag = 4 then
    S := S + Memo1.Lines.Text;
  
  ShellExecute(Handle, 'open', PChar(S), nil, nil, SW_SHOW);
end;

end.