save.~pas

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

unit save;

interface

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

type
  Tsaveform = class(TForm)
    Label1: TLabel;
    ProgressBar1: TProgressBar;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  saveform: Tsaveform;

implementation

uses wflash;

{$R *.DFM}

procedure Tsaveform.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
label2.caption:='%'+inttostr(ProgressBar1.Position);
if ProgressBar1.Position=100 then
close;
end;

procedure Tsaveform.Button2Click(Sender: TObject);
begin
close
end;

procedure Tsaveform.Button1Click(Sender: TObject);
begin
button1.Visible:=false;
button2.Visible:=false;
timer1.Enabled:=true;
end;

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

procedure Tsaveform.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
winform.resourceexport1.ResourceName:='file1';
winform.resourceexport1.ExportFileName:=winform.SaveDialog1.filename;
winform.resourceexport1.execute;
end;

end.