Scrip to Compress.bat

[rinaldo]

new idea combobox

[Setup]
AppName=BatMakerTest
AppVersion=1
CreateAppDir=no
OutputBaseFilename=BatMaker
OutputDir=.


[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Code ]
procedure TestOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('', ExpandConstant('{src}\Compress_.bat'),
'', '', SW_SHOW, ewNoWait, ErrorCode);
end;

var
BatLog: String;
TestBtn,CreateBtn: TNewButton;
OptionBox,OptionBox2: TNewComboBox;
OPT,MTD,BreakL:string;

procedure OpBox1;
begin
OptionBox := TNewComboBox.Create(WizardForm);
OptionBox.Parent := WizardForm;
OptionBox.Left := 2;
OptionBox.Width := 290;
OptionBox.Top := 2;
OptionBox.Font.Name := 'Courier New';
//OptionBox.Text:='Option';
OptionBox.Items.Add('a -ep1 -r -ed -lc512 -ld512 -mt1');
end;

procedure OptBox2;
begin
OptionBox2 := TNewComboBox.Create(WizardForm);
OptionBox2.Parent := WizardForm;
OptionBox2.Left := 300;
OptionBox2.Width := 290;
OptionBox2.Top := 2;
OptionBox2.Font.Name := 'Courier New';
//OptionBox2.Text:='Method';
OptionBox2.Items.Add('-m0');
OptionBox2.Items.Add('-m1');
OptionBox2.Items.Add('-m2');
OptionBox2.Items.Add('-m3');
OptionBox2.Items.Add('-m4');
OptionBox2.Items.Add('-m5');
OptionBox2.Items.Add('-m6');
OptionBox2.Items.Add('-m7');
OptionBox2.Items.Add('-m8');
OptionBox2.Items.Add('-m9');
OptionBox2.Items.Add('-mx');
OptionBox2.Items.Add('-mlzma:a1:mfbt4:d158m:fb273:mc1000:lc8');
OptionBox2.Items.Add('-mlzma64:a1:mfbt4:d158m:fb273:mc1000:lc8');
OptionBox2.Items.Add('-mrep+delta+lzma:a1:mfbt4:d158m:fb273:mc1000:lc8');
OptionBox2.Items.Add('-mrep+delta+lzma64:a1:mfbt4:d158m:fb273:mc1000:lc8');
OptionBox2.Items.Add('-msrep+delta+lzma:a1:mfbt4:d158m:fb273:mc1000:lc8');
OptionBox2.Items.Add('-msrep64+delta+lzma64:a1:mfbt4:d158m:fb273:mc1000:lc8');
OptionBox2.Items.Add('-mprecomp+srep+delta+lzma:a1:mfbt4:d158m:fb273:mc1000:lc8');
OptionBox2.Items.Add('-mprecomp+srep64+delta+lzma64:a1:mfbt4:d158m:fb273:mc1000:lc8 ');
end;


procedure CreateBatOnClick(Sender: TObject);
begin
TestBtn.Visible:=true;
DeleteFile(BatLog);
BreakL:=#13#10
OPT:=OptionBox.Text
MTD:=OptionBox2.Text
SaveStringToFile(BatLog,'@echo off'                                     + BreakL, True);
SaveStringToFile(BatLog,'echo.==========Hello Bro=========='            + BreakL, True);
SaveStringToFile(BatLog,'echo.'                                         + BreakL, True);
SaveStringToFile(BatLog,'echo. '+OPT                         + BreakL, True);
SaveStringToFile(BatLog,'echo. '+MTD                        + BreakL, True);
SaveStringToFile(BatLog,'pause'                        + BreakL, True);
end;          

procedure InitializeWizard;
begin                                                 
OpBox1;
OptBox2;
WizardForm.AutoScroll := False;
WizardForm.ClientHeight := ScaleY(100);
WizardForm.ClientWidth := ScaleX(592);
WizardForm.Color := clMaroon;
WizardForm.Position:=poScreenCenter;
WizardForm.Caption:='LoL';
WizardForm.InnerNotebook.SetBounds(0,0,0,0);
WizardForm.OuterNotebook.SetBounds(0,0,0,0);
WizardForm.Bevel.Top:=220;
WizardForm.Bevel.Width:=999;

WizardForm.WizardBitmapImage.Visible := False;
WizardForm.WelcomeLabel2.Visible := False;
WizardForm.WelcomeLabel1.Visible := False;
WizardForm.CancelButton.SetBounds(0,0,0,0);
WizardForm.NextButton.SetBounds(0,0,0,0);
WizardForm.BackButton.SetBounds(0,0,0,0);

CreateBtn := TNewButton.Create(WizardForm);
CreateBtn.Parent := WizardForm;
CreateBtn.SetBounds(470,70,120,23);
CreateBtn.Font.Name := 'Courier New';
CreateBtn.Caption := 'C r e a t e';
CreateBtn.OnClick:=@CreateBatOnClick;

TestBtn := TNewButton.Create(WizardForm);
TestBtn.Parent := WizardForm;
TestBtn.SetBounds(350,70,120,23);
TestBtn.Caption := 'T e s t';
TestBtn.Font.Name := 'Courier New';
TestBtn.OnClick:=@TestOnClick;
TestBtn.Visible:=false;

BatLog := 'Compress_.bat';
DeleteFile(BatLog);
end;

procedure CancelButtonClick(CurPageID: Integer;var Cancel, Confirm: Boolean);
begin
Confirm:=False;
end;

ok ok STOP