guanyu.pas

DELPHI语言制作的音象管理系统 很经典的例子噢 欢迎下载参考

unit guanyu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg,shellapi, ComCtrls;

type
  TForm10 = class(TForm)
    Image1: TImage;
    Bevel1: TBevel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    StatusBar1: TStatusBar;
    Image2: TImage;
    Label2: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label5: TLabel;
    procedure Label4Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure Image2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.Label4Click(Sender: TObject);
var
  b:pchar;
  c,a:string;
begin
  a:='[e-mail]';
  c:=('MailTo:'+a);
  b:=pchar(c);
  shellexecute(handle,'',b,'','',sw_show);

end;


procedure TForm10.Image1Click(Sender: TObject);
begin
form10.close;
end;

procedure TForm10.FormClick(Sender: TObject);
begin
form10.close;
end;

procedure TForm10.Image2Click(Sender: TObject);
begin
form10.close;
end;

end.