diybios.pas

来自「你的电脑是否年代已久？是否需要进行硬件升级？BIOS版本是否不支持大硬盘？ 现」· PAS 代码 · 共 77 行

unit diybios;

interface

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

type
  Tdosform = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Image2: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormDblClick(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dosform: Tdosform;

implementation

uses wflash;

{$R *.DFM}

procedure Tdosform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tdosform.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
 edit2.SetFocus;
 if edit2.text='' then
 timer1.enabled:=true;
end;

procedure Tdosform.Timer1Timer(Sender: TObject);
begin
image2.visible:=not image2.visible;
end;

procedure Tdosform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=$1B then close;
showmessage(inttohex(key,2));
end;

procedure Tdosform.FormDblClick(Sender: TObject);
begin
close;
end;

procedure Tdosform.Timer2Timer(Sender: TObject);
const i:integer=0;
begin
inc(i);

end;

end.