|
|
|
#1
|
||||
|
||||
|
Quote:
![]() Code:
[Setup]
AppName=Bat
AppVername=Bat
DefaultDirName={pf}\Bat
OutputDir=.
[code ]
var
List: TStringList; batfile: string; res: Integer;
CreateBatBtn:TButton;
NameEdit,ArcEdit,DataEdit:TNewEdit;
NameLabel,ArcLabel,DataLabel:TLabel;
Memo:TNewMemo;
procedure CreateFileBat(Sender: TObject);
begin
batfile:= ExpandConstant('{src}\Compress.bat');
List:= TStringList.Create;
List.Add('@echo off');
List.Add('echo.'+ NameEdit.Text);
List.Add('echo. x 1 DVD5');
List.Add('pause');
List.Add(':'+DataEdit.Text);
List.Add('set arc='+ArcEdit.Text);
List.Add('if exist .\TRANSF_1\%arc% goto Data2');
List.Add('echo.Creating %arc%, please wait...');
List.Add('echo.');
List.Add('echo.--------------------------------------------------------------------');
List.Add('arc a -ep1 -r -w.\ -msrep [email protected] [email protected] -dp"%choice%" .\TRANSF_1\%arc%');
List.Add('if ERRORLEVEL 1 goto arcfail');
List.Add('pause');
List.SaveToFile(batfile);
List.Free;
if Exec(batfile, '', '', SW_SHOW, ewNoWait, Res) then MsgBox('Bat Created', mbInformation, MB_OK);
end;
procedure InitializeWizard();
begin
WizardForm.InnerNotebook.Hide;
WizardForm.OuterNotebook.Hide;
WizardForm.CancelButton.Width:=0;
WizardForm.NextButton.Width:=-0;
CreateBatBtn:= TButton.Create(WizardForm);
CreateBatBtn.Caption := 'Create Bat';
CreateBatBtn.Parent := WizardForm;
CreateBatBtn.SetBounds(420,327,60,25)
CreateBatBtn.onclick:=@CreateFileBat;
NameLabel:=TLabel.Create(WizardForm);
NameLabel.Parent:=WizardForm;
NameLabel.Top:=120;
NameLabel.Left:=20;
NameLabel.Width:=100;
NameLabel.Height:= 23;
NameLabel.Caption:='Name';
NameEdit:=TNewEdit.Create(WizardForm);
NameEdit.Parent:=WizardForm;
NameEdit.Top:=118;
NameEdit.Left:=100;
NameEdit.Width:=200;
NameEdit.Height:= 0;
ArcLabel:=TLabel.Create(WizardForm);
ArcLabel.Parent:=WizardForm;
ArcLabel.Top:=NameLabel.Top+25;
ArcLabel.Left:=20;
ArcLabel.Width:=100;
ArcLabel.Height:= 23;
ArcLabel.Caption:='Archive Name';
ArcEdit:=TNewEdit.Create(WizardForm);
ArcEdit.Parent:=WizardForm;
ArcEdit.Top:=NameEdit.Top+25;
ArcEdit.Left:=NameEdit.Left;
ArcEdit.Width:=200;
ArcEdit.Height:= 0;
DataLabel:=TLabel.Create(WizardForm);
DataLabel.Parent:=WizardForm;
DataLabel.Top:=ArcLabel.Top+25;
DataLabel.Left:=20;
DataLabel.Width:=100;
DataLabel.Height:= 23;
DataLabel.Caption:='Data Number';
DataEdit:=TNewEdit.Create(WizardForm);
DataEdit.Parent:=WizardForm;
DataEdit.Top:=ArcEdit.Top+25;
DataEdit.Left:=NameEdit.Left;
DataEdit.Width:=200;
DataEdit.Height:= 0;
Memo:=TNewMemo.Create(WizardForm);
Memo.Parent:=WizardForm;
Memo.Left := ScaleX(192);
Memo.Top := ScaleY(96);
Memo.Width := ScaleX(169);
Memo.Height := ScaleY(145);
Memo.Hide;
end;
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm := False;
end;
function NextButtonClick(CurPageID: Integer): Boolean;
begin
end;
__________________
Glass BB | BlackBox v2 | Portable Installer |
| Sponsored Links |
|
#2
|
||||
|
||||
|
y_thelastknight so we never learn lol
![]() you have to grow a child said to her puppy |
|
#3
|
||||
|
||||
|
Quote:
Can you add this lines to edit like a Setup.ini Code:
Name of the compress.bat=Tranformers -3XDVD5
Creator=her1620
Default source= C:\Program Files(x86)\Tranformers
Set Source=D:\Juegos\Tranformers
Check Path=Bin32\Transformers.exe
Numbres of DVD5=5
Names of Folder=TRANSF_
Numbers and names of Data.cab in each folder
Data1.cab;DestDir:{FOLDER_1};[email protected];-msre
Data2.cab;DestDir:{FOLDER_1};[email protected]:[email protected];-msrep
Data3.cab;DestDir:{FOLDER_2};[email protected];-m0
Data4.cab;DestDir:{FOLDER_3};[email protected]:-msrep+lzma:a1:mfbt4:d256m:fb128:mc1000:lc8
Data5.cab;DestDir:{FOLDER_4};[email protected]:-msrep+lzma:a1:mfbt4:d256m:fb128:mc1000:lc8
|
|
#4
|
||||
|
||||
|
Quote:
Code:
[Setup]
AppName=Bat
AppVername=Bat
DefaultDirName={pf}\Bat
OutputDir=.
[code ]
var
List: TStringList; batfile: string; res: Integer;
CreateBatBtn:TButton;
OptionEdit,MethodEdit,NameEdit,ArcEdit,DataEdit:TNewEdit;
OptionLabel,MethodLabel,NameLabel,ArcLabel,DataLabel:TLabel;
Memo:TNewMemo;
procedure CreateFileBat(Sender: TObject);
begin
batfile:= ExpandConstant('{src}\Compress.bat');
List:= TStringList.Create;
List.Add('@echo off');
List.Add('echo.'+ NameEdit.Text);
List.Add('echo. x 1 DVD5');
List.Add('pause');
List.Add(':'+DataEdit.Text);
List.Add('set arc='+ArcEdit.Text);
List.Add('if exist .\TRANSF_1\%arc% goto Data2');
List.Add('echo.Creating %arc%, please wait...');
List.Add('echo.');
List.Add('echo.--------------------------------------------------------------------');
List.Add(''+OptionEdit.Text+' '+MethodEdit.Text+' [email protected] [email protected] -dp"%choice%" .\TRANSF_1\%arc%');
//List.Add('arc a -ep1 -r -w.\ -msrep [email protected] [email protected] -dp"%choice%" .\TRANSF_1\%arc%');
List.Add('if ERRORLEVEL 1 goto arcfail');
List.Add('pause');
List.SaveToFile(batfile);
List.Free;
if Exec(batfile, '', '', SW_SHOW, ewNoWait, Res) then MsgBox('Bat Created', mbInformation, MB_OK);
end;
procedure InitializeWizard();
begin
WizardForm.InnerNotebook.Hide;
WizardForm.OuterNotebook.Hide;
WizardForm.CancelButton.Width:=0;
WizardForm.NextButton.Width:=-0;
CreateBatBtn:= TButton.Create(WizardForm);
CreateBatBtn.Caption := 'Create Bat';
CreateBatBtn.Parent := WizardForm;
CreateBatBtn.SetBounds(420,327,60,25)
CreateBatBtn.onclick:=@CreateFileBat;
NameLabel:=TLabel.Create(WizardForm);
NameLabel.Parent:=WizardForm;
NameLabel.Top:=120;
NameLabel.Left:=20;
NameLabel.Width:=100;
NameLabel.Height:= 23;
NameLabel.Caption:='Name';
//
OptionEdit:=TNewEdit.Create(WizardForm);
OptionEdit.Parent:=WizardForm;
OptionEdit.Top:=68;
OptionEdit.Left:=100;
OptionEdit.Width:=200;
OptionEdit.Height:= 0
MethodEdit:=TNewEdit.Create(WizardForm);
MethodEdit.Parent:=WizardForm;
MethodEdit.Top:=93;
MethodEdit.Left:=100;
MethodEdit.Width:=200;
MethodEdit.Height:= 0
//
NameEdit:=TNewEdit.Create(WizardForm);
NameEdit.Parent:=WizardForm;
NameEdit.Top:=118;
NameEdit.Left:=100;
NameEdit.Width:=200;
NameEdit.Height:= 0;
ArcLabel:=TLabel.Create(WizardForm);
ArcLabel.Parent:=WizardForm;
ArcLabel.Top:=NameLabel.Top+25;
ArcLabel.Left:=20;
ArcLabel.Width:=100;
ArcLabel.Height:= 23;
ArcLabel.Caption:='Archive Name';
ArcEdit:=TNewEdit.Create(WizardForm);
ArcEdit.Parent:=WizardForm;
ArcEdit.Top:=NameEdit.Top+25;
ArcEdit.Left:=NameEdit.Left;
ArcEdit.Width:=200;
ArcEdit.Height:= 0;
DataLabel:=TLabel.Create(WizardForm);
DataLabel.Parent:=WizardForm;
DataLabel.Top:=ArcLabel.Top+25;
DataLabel.Left:=20;
DataLabel.Width:=100;
DataLabel.Height:= 23;
DataLabel.Caption:='Data Number';
//
OptionLabel:=TLabel.Create(WizardForm);
OptionLabel.Parent:=WizardForm;
OptionLabel.Top:=NameLabel.Top-49;
OptionLabel.Left:=20;
OptionLabel.Width:=100;
OptionLabel.Height:= 23;
OptionLabel.Caption:='Option Code';
MethodLabel:=TLabel.Create(WizardForm);
MethodLabel.Parent:=WizardForm;
MethodLabel.Top:=NameLabel.Top-24;
MethodLabel.Left:=20;
MethodLabel.Width:=100;
MethodLabel.Height:= 23;
MethodLabel.Caption:='Method Code';
//
DataEdit:=TNewEdit.Create(WizardForm);
DataEdit.Parent:=WizardForm;
DataEdit.Top:=ArcEdit.Top+25;
DataEdit.Left:=NameEdit.Left;
DataEdit.Width:=200;
DataEdit.Height:= 0;
Memo:=TNewMemo.Create(WizardForm);
Memo.Parent:=WizardForm;
Memo.Left := ScaleX(192);
Memo.Top := ScaleY(96);
Memo.Width := ScaleX(169);
Memo.Height := ScaleY(145);
Memo.Hide;
end;
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm := False;
end;
function NextButtonClick(CurPageID: Integer): Boolean;
begin
end;
Last edited by rinaldo; 19-10-2015 at 16:18. |
|
#5
|
||||
|
||||
|
new idea combobox
Code:
[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;
Last edited by rinaldo; 19-10-2015 at 21:16. |
|
#6
|
||||
|
||||
|
ORDERING IDEAS
One Scrip to create a .exe (Converter.exe), with a Converter.ini whit the next options: Converter.ini Code:
[Aplication] Name=Transformes DVD9 To 2xDVD5 Path=C:\ProgramFiles\Activision\Transformers Check=Bin\transformers.exe ///to check the right path Version=1.0 [Files] ////Name;Folder;Include;Exclude;Method File1=Data1.cab;TRANF_1;Data1.lst;;-msrep File2=Data2.cab;TRANF_1;Data2.lst;Data2e.lst;-msrep File3=Data3.cab;TRANF_2;Data3.lst;;-msrep+lzma:a1:mfbt4:d256m:fb128:mc1000:lc8 [Autorun] ///1=yes; 0=no Autorun=1 Name=TRANSF_x ///Depends of the number Folder [ISO] ///1=yes; 0=no CreateISO=1 After compiling create the Converter.exe ![]()
|
![]() |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| CODEX Scrip | gatosky1620 | Conversion Tutorials | 21 | 20-11-2017 10:14 |
| Scrip to Updates, DLC, etc | gatosky1620 | Conversion Tutorials | 3 | 19-10-2015 14:12 |
| Compressions Method For Compress.bat File | gatosky1620 | Conversion Tutorials | 1 | 21-09-2015 20:58 |
| Help to Identifier Scrip | gatosky1620 | Conversion Tutorials | 11 | 16-09-2015 04:33 |
| Help with Peterff1999 The Witcher 2 scrip | gatosky1620 | PC Games - CD/DVD Conversions | 0 | 21-08-2014 16:17 |