step1unit.pas

这是在磁疗用DELPHI编写一套安装软件的程序源码

unit Step1Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls, bsSkinBoxCtrls,
  StdCtrls, FileCtrl, jpeg, ExtCtrls;

type
  TStep1Frm = class(TForm)
    bsSkinData1: TbsSkinData;
    Corona: TbsCompressedStoredSkin;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    SetupList: TbsSkinCheckListBox;
    bsSkinData2: TbsSkinData;
    WinXPSteel: TbsCompressedStoredSkin;
    Label1: TLabel;
    NEXTStep: TbsSkinSpeedButton;
    mClose: TbsSkinSpeedButton;
    OpenD: TOpenDialog;
    Dir1: TDirectoryListBox;
    Edit1: TEdit;
    Image1: TImage;
    DriveComboBox1: TDriveComboBox;
    procedure mCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Dir1Change(Sender: TObject);
    procedure NEXTStepClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Step1Frm: TStep1Frm;

implementation

uses Step2Unit;

{$R *.dfm}

procedure TStep1Frm.mCloseClick(Sender: TObject);
begin
close;
end;

procedure TStep1Frm.FormShow(Sender: TObject);
var
I:Integer;
begin
For I:=0 to SetupList.Items.Count-1 do
SetupList.Checked[i]:=True;
Edit1.Text:=Dir1.Directory;
end;

procedure TStep1Frm.Dir1Change(Sender: TObject);
begin
Edit1.Text:=Dir1.Directory;
end;

procedure TStep1Frm.NEXTStepClick(Sender: TObject);
begin
mOk:=True;
Step1:=0;
Step2Frm.Timer1.Interval:=200;
Step2Frm.Timer1.Enabled:=True;
Step2Frm.ShowModal;
end;

end.