u00406.pas

Delphi编程五大妙招源程序

unit U00406;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,
  Registry, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);     {当事件触发后调用此过程}
  private
    { Private declarations }
    val1,val2,res:integer;   {val1和val2存放输入的两个整数，res存放两数的积}
    FTooBig : TNotifyEvent;  {定义一个指向事件处理器的指针FTooBig}
    procedure TooBig(Sender: TObject);
  public
    { Public declarations }
  published
    { published declarations }
    property  OnTooBig:TNotifyevent read FTooBig write FTooBig;{定义事件}

  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
Var
  RegFile : TRegistry;
  AppFile : String ;
begin
  AppFile := Application.ExeName ;
  RegFile:=TRegistry.Create;
  RegFile.RootKey:=HKEY_LOCAL_MACHINE;
  try
    RegFile.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
    RegFile.WriteString('Test Add App to Start','"'+AppFile+'"');
  except
  End;
  RegFile.CloseKey ;
  RegFile.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  winexec('rundll32.exe rnaui.dll,RnaDial '+'我的连接',9);
end;

procedure TForm1.TooBig(Sender: TObject);
begin
  Application.MessageBox('有乘数大于２００或０或为空了，你看看，快看','测试自定义事件! ',MB_OK);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  val1:=1;
  val2:=1;
  FTooBig := TooBig;{使事件处理指针指向事件处理器}
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Try
    val1 := StrToInt(Edit1.Text);
  Except
    Val1 := 0 ;
  End ;

  Try
    val2 := StrToInt(Edit2.Text);
  Except
    Val2 := 0 ;
  End ;

  if((val1< 200)and(val2< 200)) and (val1<>0) and (val2<>0) then
    begin
      res := val1*val2;
      Edit3.Text := IntToStr(res);
    end
  else
    if assigned(FTooBig) then OnTooBig(Self);
end;

end.