rhregpas.~pas

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· ~PAS 代码 · 共 47 行

unit rhregpas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DiskInfo,shellapi, XP_Button, XP_Form;

type
  Tw_rhzc = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    XP_Form1: TXP_Form;
    XP_Button1: TXP_Button;
    procedure Label4Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_rhzc: Tw_rhzc;

implementation

{$R *.dfm}

procedure Tw_rhzc.Label4Click(Sender: TObject);
begin
ShellExecute(handle,nil,'mailto:[e-mail]',nil,nil,sw_shownormal);

end;

procedure Tw_rhzc.Label5Click(Sender: TObject);
begin
ShellExecute(handle,nil,'http://www.catvmis.com/whd',nil,nil,sw_shownormal);

end;

end.