www.pudn.com > 200589952618.rar > About.pas


unit About;

interface

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

type
TFAbout = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
procedure Label8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FAbout: TFAbout;

implementation

{$R *.dfm}

procedure TFAbout.Label8Click(Sender: TObject);
var
Info : String;
begin
Info := 'mailto:'+ self.Label8.Caption;
shellexecute(handle,'open',PChar(Info),nil,nil,sw_shownormal);
end;

end.