wflash.~pas

你的电脑是否年代已久？是否需要进行硬件升级？BIOS版本是否不支持大硬盘？ 现在有在WIN下面的BIOS升级程序

unit wflash;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, Buttons, ToolWin, StdCtrls, ExtCtrls, ResourceExport;

type
  Twinform = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Panel1: TPanel;
    Panel2: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N5: TMenuItem;
    BIOS1: TMenuItem;
    BIOS2: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N2: TMenuItem;
    N10: TMenuItem;
    DMI1: TMenuItem;
    PNP1: TMenuItem;
    BIOS3: TMenuItem;
    N11: TMenuItem;
    COMS1: TMenuItem;
    CMOS1: TMenuItem;
    N3: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    BIOS4: TMenuItem;
    N14: TMenuItem;
    N4: TMenuItem;
    WinFlash1: TMenuItem;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    GroupBox2: TGroupBox;
    CheckBox4: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    StatusBar1: TStatusBar;
    ResourceExport1: TResourceExport;
    procedure N9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure BIOS3Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure DMI1Click(Sender: TObject);
    procedure PNP1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure BIOS4Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure WinFlash1Click(Sender: TObject);
    procedure COMS1Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure OpenDialog1Close(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  winform: Twinform;
  s:string;
implementation

uses save, updatebios, about;
{$R flash.res}
{$R *.DFM}

procedure Twinform.N9Click(Sender: TObject);
begin
close
end;

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

procedure Twinform.SpeedButton2Click(Sender: TObject);
begin
if savedialog1.execute then
   begin
   saveform:=tsaveform.create(application);
   saveform.showmodal;
   end;
end;

procedure Twinform.N5Click(Sender: TObject);
begin
opendialog1.FileName:='';
opendialog1.execute
end;

procedure Twinform.SpeedButton3Click(Sender: TObject);
label opend;
begin
if opendialog1.filename<>'' then
   begin
   if Application.MessageBox('二进制文件已经加载，'+#13#10+
   '你要重新加载吗？','更新',MB_yesno)=idno then
   begin
   updateform:=tupdateform.create(application);
   updateform.showmodal;
   exit;
   end else
   goto opend;
   end else
   goto opend;

opend:
   begin
   if opendialog1.execute then
   begin
   updateform:=tupdateform.create(application);
   updateform.showmodal;
   end;
   end;
end;

procedure Twinform.Image4Click(Sender: TObject);
begin
image4.Transparent:=not image4.Transparent;
checkbox1.checked:=not image4.Transparent;
n10.checked:=not image4.Transparent;
end;

procedure Twinform.Image5Click(Sender: TObject);
begin
image5.Transparent:=not image5.Transparent;
checkbox2.checked:=not image5.Transparent;
pnp1.checked:=not image5.Transparent;
end;

procedure Twinform.Image6Click(Sender: TObject);
begin
image6.Transparent:=not image6.Transparent;
checkbox3.checked:=not image6.Transparent;
dmi1.checked:=not image6.Transparent;
end;

procedure Twinform.BIOS3Click(Sender: TObject);
begin
bios3.checked:=not bios3.checked;
if bios3.checked then
  begin
  n10.checked:=true;
  dmi1.checked:=true;
  pnp1.checked:=true;
  checkbox1.checked:=TRUE;
  checkbox2.checked:=true;
  checkbox3.checked:=true;
  image4.Transparent:=true;
  image5.Transparent:=true;
  image6.Transparent:=true;
  end else
  begin
  n10.checked:=false;
  dmi1.checked:=false;
  pnp1.checked:=false;
  checkbox1.checked:=false;
  checkbox2.checked:=false;
  checkbox3.checked:=false;
  image4.Transparent:=false;
  image5.Transparent:=false;
  image6.Transparent:=false;
  end
end;

procedure Twinform.N10Click(Sender: TObject);
begin
n10.checked:=not n10.checked;
image4.Transparent:=n10.checked;
checkbox1.checked:=n10.checked;
end;

procedure Twinform.DMI1Click(Sender: TObject);
begin
dmi1.checked:=not dmi1.checked;
image5.Transparent:=dmi1.checked;
checkbox2.checked:=dmi1.checked;
end;

procedure Twinform.PNP1Click(Sender: TObject);
begin
pnp1.checked:=not pnp1.checked;
image6.Transparent:=pnp1.checked;
checkbox3.checked:=pnp1.checked;
end;

procedure Twinform.CheckBox1Click(Sender: TObject);
begin
image4.Transparent:=not checkbox1.checked;
n10.checked:=checkbox1.checked;
end;

procedure Twinform.CheckBox2Click(Sender: TObject);
begin
dmi1.checked:=checkbox2.checked;
image5.Transparent:=not dmi1.checked;
end;

procedure Twinform.CheckBox3Click(Sender: TObject);
begin
pnp1.checked:=checkbox3.checked;
image6.Transparent:=not pnp1.checked;
end;

procedure Twinform.N12Click(Sender: TObject);
begin
n12.checked:=not n12.checked;
toolbar1.Visible:=n12.checked;
end;

procedure Twinform.N13Click(Sender: TObject);
begin
n13.Checked:=not n13.Checked;
statusbar1.Visible:=n13.Checked;
end;

procedure Twinform.BIOS4Click(Sender: TObject);
begin
bios4.checked:=not bios4.Checked;
image1.visible:=bios4.checked;
image3.visible:=bios4.checked;
image4.visible:=bios4.checked;
image5.visible:=bios4.checked;
image6.visible:=bios4.checked;
end;

procedure Twinform.N14Click(Sender: TObject);
begin
application.MessageBox(PCHAR(#13#10+'BIOS ID　　'+String(Pchar(Ptr($FE061)))+#13#10+'构建时间　'+String(Pchar(Ptr($FFFF5)))+#13#10+'Flash 类型　'+'I82802AB'+#13#10),'信息',mb_ok);
end;

procedure Twinform.WinFlash1Click(Sender: TObject);
begin
aboutform:=taboutform.create(application);
aboutform.showmodal;
end;

procedure Twinform.COMS1Click(Sender: TObject);
begin
COMS1.CHECKED:=not coms1.checked;
checkbox4.checked:=coms1.checked;
end;

procedure Twinform.CheckBox4Click(Sender: TObject);
begin
coms1.checked:=checkbox4.checked;
end;

procedure Twinform.OpenDialog1Close(Sender: TObject);
begin
//s:=opendialog1.filename;
end;

end.