INNO TROUBLESHOOT - Questions Here

[Razor12911]

Originally Posted by Andre Jesus

Hello guys.

Finally i terminate my installer exactly how i wanted, however, i don´t know to fix a little problem about Welcomepage.
When i run it, the Welcomepage show me the label mix with label of the Finishedpage, but if i click in next button and after in back button, the problem disapear and all stay normal.
Does anyone know why this happens?

See the problem sequence.

Attachment 5517

Attachment 5518

Attachment 5519

Thanks in advance and sorry my bad english.

Try making your own labels.

Hide
Pagenamelabel and pagedescriptionlabel. this can be done in CurpageChanged.

[Andre Jesus]

Originally Posted by Razor12911

Try making your own labels.

Hide
Pagenamelabel and pagedescriptionlabel. this can be done in CurpageChanged.

Thank you for your help.
Now work correctly.

1.jpg

2.jpg

3.jpg

4.jpg

[Razor12911]

Originally Posted by Andre Jesus

Thank you for your help.
Now work correctly.

Attachment 5542

Attachment 5543

Attachment 5544

Attachment 5545

Awesome installer man.

What else?

[Compiler]

arc a -ep1 -r -w.\ .\data1.cab mlzma:a1:mfbt4:d256m:fb128:mc1000:lc8 (or)
ARC -m0
PRECOMP038 -slow
SREP -m3f
ARC -mrep:800mb lzma:800mb delta exe which one of these is better ?(any other code will also be a help)

[Razor12911]

Originally Posted by Compiler

arc a -ep1 -r -w.\ .\data1.cab mlzma:a1:mfbt4:d256m:fb128:mc1000:lc8 (or)
ARC -m0
PRECOMP038 -slow
SREP -m3f
ARC -mrep:800mb lzma:800mb delta exe which one of these is better ?(any other code will also be a help)

It differs and depends on the files you are compressing.

[Razor12911]

-mprecomp:t-nfj:zl99:d1+srep+exe+rep:800mb+delta+lzma:a1:mfbt4 :d256m:fb128:mc1000:lc8

[Compiler]

Originally Posted by Razor12911

-mprecomp:t-nfj:zl99:d1+srep+exe+rep:800mb+delta+lzma:a1:mfbt4 :d256m:fb128:mc1000:lc8

What does rep:800mb stand for ? and it dosen't include ARC right

[Razor12911]

Originally Posted by Compiler

What does rep:800mb stand for ? and it dosen't include ARC right

rep is a version before srep
old - rep, new - super rep.

[thilanka]

(Sorry for my English)



I want to Automatically detect and set MAC Address to Input Query when i run setup ( inno setup key generator).

Attachment 5554

Attachment 5555

Please send me the Script because i have no knowledge about this coding


This is very Important to me please help me


Thank you very much


This is inno script




[_ISTool]

EnableISX=true

Use7zip=false

[Files]

Source: sample2.iky; DestDir: {tmp}; Flags: ignoreversion

Source: ISID.dll; DestDir: {sys}\ISID; Flags: ignoreversion


[Setup]

AppName=Inno Key Generator2

AppVerName=Inno Key Generator 1.0.2.1 2

DefaultDirName={pf}\MJ Freelancing\IKG

DefaultGroupName=Inno Key Generator

OutputDir=output

AppCopyright=Copyright © Oct 2002 - 2006 MJ Freelancing

OutputBaseFilename=IKGSetup


[ThirdParty]

CompileLogMethod=append


[Code]


function ValidateSerialNumber(InnoKeyFile, User, Orgn, ProdCode, HDD, MAC, PrivateKey, Serial: AnsiString): Boolean;

external 'ValidateSerialNumber@files:ISID.dll stdcall';

function GetMACAddress(output: AnsiString): Boolean;

external 'GetMACAddress@files:ISID.dll stdcall';


var

UserPage: TInputQueryWizardPage;

UserValues: TArrayOfString;

I: Integer;

procedure InitializeWizard();

begin

{ create the custom page }

UserPage := CreateInputQueryPage(wpInfoBefore, //wpWelcome,

'Enter Registration Details', 'You need to be a registered user to be able to proceed',

'Enter your registration details exactly (case sensitive), then click Next.');

UserPage.Add('MAC Address:', False);
UserPage.Add('Unlock Code:', False);
UserPage.Add('Private Key:', False);

// here's how to assign texts to those edit boxes
UserPage.Edits[0].Text := 'Detect and set MAC Address';
UserPage.Edits[1].Text := '123456789_Unlock';
UserPage.Edits[2].Text := 'Pr1v4t3 k3y';

// iterate all edit boxes to set them ReadOnly mode and gray color in
// an easier way than writing the same three times for all edit boxes
for I := 0 to 2 do
begin
UserPage.Edits[I].ReadOnly := True;
UserPage.Edits[I].Color := clBtnFace;
end;

{ Set default values }

SetArrayLength(UserValues, 3);

end;

function ScriptDlgPages(CurPage: Integer; BackClicked: Boolean): Boolean;

var

ExpPath: String;

begin

Result := True;

if (CurPage = UserPage.ID) then

begin

ExtractTemporaryFile('sample2.iky'); { the public key file }

ExpPath := ExpandConstant('{tmp}\sample2.iky');

Result := False;

UserValues[0] := UserPage.Values[0];
UserValues[1] := UserPage.Values[1];
UserValues[2] := UserPage.Values[2];

if (UserValues[0] = '') or (UserValues[1] = '') or (UserValues[2] = '') then

MsgBox('No fields can be blank !', mbError, MB_OK)

else

begin



//UserPage.Values[0] := GetPreviousData('MAC', UserValues[0]);

//UserPage.Values[1] := GetPreviousData('Unlock', UserValues[1]);

//UserPage.Values[2] := GetPreviousData('Private', UserValues[2]);



//function ValidateSerialNumber(InnoKeyFile, User, Orgn, PCe,HDD,MAC,PrivateKey, Serial: AnsiString): Boolean;

Result := ValidateSerialNumber( ExpPath,'','','','',UserValues[0],UserValues[2],UserValues[1] );

if (not Result) then

MsgBox('Invalid Entry !', mbError, MB_OK);

end
end

end;


function NextButtonClick(CurPage: Integer): Boolean;

begin

Result := ScriptDlgPages(CurPage, False);

end;

function BackButtonClick(CurPage: Integer): Boolean;

begin

Result := True;//ScriptDlgPages(CurPage, True);

end;

function HasHtmlHelp(): Boolean;

begin

{ HHCTRL.OCX GUID }

Result := RegValueExists(HKCR, 'CLSID\{4662DAB0-D393-11D0-9A56-00C04FB68B66}\InprocServer32', '');

end;

function HasNoHtmlHelp(): Boolean;

begin

Result := not HasHtmlHelp;

end;

[lcatorio]

Originally Posted by thilanka

(Sorry for my English)



I want to Automatically detect and set MAC Address to Input Query when i run setup ( inno setup key generator).

Attachment 5554

Attachment 5555

Please send me the Script because i have no knowledge about this coding


This is very Important to me please help me


Thank you very much


This is inno script




[_ISTool]

EnableISX=true

Use7zip=false

[Files]

Source: sample2.iky; DestDir: {tmp}; Flags: ignoreversion

Source: ISID.dll; DestDir: {sys}\ISID; Flags: ignoreversion


[Setup]

AppName=Inno Key Generator2

AppVerName=Inno Key Generator 1.0.2.1 2

DefaultDirName={pf}\MJ Freelancing\IKG

DefaultGroupName=Inno Key Generator

OutputDir=output

AppCopyright=Copyright © Oct 2002 - 2006 MJ Freelancing

OutputBaseFilename=IKGSetup


[ThirdParty]

CompileLogMethod=append


[Code]


function ValidateSerialNumber(InnoKeyFile, User, Orgn, ProdCode, HDD, MAC, PrivateKey, Serial: AnsiString): Boolean;

external 'ValidateSerialNumber@files:ISID.dll stdcall';

function GetMACAddress(output: AnsiString): Boolean;

external 'GetMACAddress@files:ISID.dll stdcall';


var

UserPage: TInputQueryWizardPage;

UserValues: TArrayOfString;

I: Integer;

procedure InitializeWizard();

begin

{ create the custom page }

UserPage := CreateInputQueryPage(wpInfoBefore, //wpWelcome,

'Enter Registration Details', 'You need to be a registered user to be able to proceed',

'Enter your registration details exactly (case sensitive), then click Next.');

UserPage.Add('MAC Address:', False);
UserPage.Add('Unlock Code:', False);
UserPage.Add('Private Key:', False);

// here's how to assign texts to those edit boxes
UserPage.Edits[0].Text := 'Detect and set MAC Address';
UserPage.Edits[1].Text := '123456789_Unlock';
UserPage.Edits[2].Text := 'Pr1v4t3 k3y';

// iterate all edit boxes to set them ReadOnly mode and gray color in
// an easier way than writing the same three times for all edit boxes
for I := 0 to 2 do
begin
UserPage.Edits[I].ReadOnly := True;
UserPage.Edits[I].Color := clBtnFace;
end;

{ Set default values }

SetArrayLength(UserValues, 3);

end;

function ScriptDlgPages(CurPage: Integer; BackClicked: Boolean): Boolean;

var

ExpPath: String;

begin

Result := True;

if (CurPage = UserPage.ID) then

begin

ExtractTemporaryFile('sample2.iky'); { the public key file }

ExpPath := ExpandConstant('{tmp}\sample2.iky');

Result := False;

UserValues[0] := UserPage.Values[0];
UserValues[1] := UserPage.Values[1];
UserValues[2] := UserPage.Values[2];

if (UserValues[0] = '') or (UserValues[1] = '') or (UserValues[2] = '') then

MsgBox('No fields can be blank !', mbError, MB_OK)

else

begin



//UserPage.Values[0] := GetPreviousData('MAC', UserValues[0]);

//UserPage.Values[1] := GetPreviousData('Unlock', UserValues[1]);

//UserPage.Values[2] := GetPreviousData('Private', UserValues[2]);



//function ValidateSerialNumber(InnoKeyFile, User, Orgn, PCe,HDD,MAC,PrivateKey, Serial: AnsiString): Boolean;

Result := ValidateSerialNumber( ExpPath,'','','','',UserValues[0],UserValues[2],UserValues[1] );

if (not Result) then

MsgBox('Invalid Entry !', mbError, MB_OK);

end
end

end;


function NextButtonClick(CurPage: Integer): Boolean;

begin

Result := ScriptDlgPages(CurPage, False);

end;

function BackButtonClick(CurPage: Integer): Boolean;

begin

Result := True;//ScriptDlgPages(CurPage, True);

end;

function HasHtmlHelp(): Boolean;

begin

{ HHCTRL.OCX GUID }

Result := RegValueExists(HKCR, 'CLSID\{4662DAB0-D393-11D0-9A56-00C04FB68B66}\InprocServer32', '');

end;

function HasNoHtmlHelp(): Boolean;

begin

Result := not HasHtmlHelp;

end;

I also need this, still no answers? Can't find anywhere Please help us..!

[spawniectes]

If I use this command:

arc a -ep1 -r -w.\DVD1\Data1.cab -msrep+lzma:a1:mfbt4:d256m:fb128:mc1000:lc8 [email protected] -dp"%choice1%" .\DVD1\%arc%

what should I put on setup.ini for extraction

[pakrat2k2]

[ExtractSettings]
FreeArcFile1={src}\Data1.cab;DestDir:{app};Disk:1;

[spawniectes]

Originally Posted by pakrat2k2

[ExtractSettings]
FreeArcFile1={src}\Data1.cab;DestDir:{app};Disk:1;

Only I have to put that, on the installerScript.iss I must put something or not?

[pakrat2k2]

in installerscript.iss Change #define programfiles.... ;#define ProgramFiles....

remove ; from ;#define Internal

this will then use the freearc files you specify from setup.ini.

[Andre Jesus]

Hi everybody.

1. I want to avoid my installer run if the same already is running.
Something like the message "Your Setup is Already Running".
How can i make this?

2. Currently i use this option to my border.

BorderStyle:= bsDialog;

But i want remove only top border like the example picture below.
How can i make this?

Sem título.jpg

P.S. Please ignore the buttons, i still can´t make it work correctly.

3. Someone can indicate a post about how can i compress my games with precomp? Something like a tutorial step-by-step.
Unfortunately i still don´t know nothing about this.

Thanks in advance.