INNO TROUBLESHOOT - Questions Here

[Logrim]

i need to know how see the installer in the taskbar please thanks for your help.

[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..!

[Logrim]

hi, i would like to know if there is a way to show the installer pages in the taskbar when mousedown in the taskbar icon. thanks.

[y_thelastknight]

Originally Posted by Logrim

hi, i would like to know if there is a way to show the installer pages in the taskbar when mousedown in the taskbar icon. thanks.

use this dll bro.

WinTB 1.0.0.8 by David.D.Rocco

[Logrim]

Thanks y_thelastknight... the problem with wintb is that when i mousedown in taskbar setup icon, dont show the buttons and text, only de png that i set in background. My installer have a bmp mask.

[Logrim]

How to make a botva button visible or invisible in ini file? i have botva buttons for redist checkboxes, and redist names in ini. i want that when i set not visible the directX label for example, the directx button not visible too. Now i have this in CuPageChanged and work well,, but i have to hide the label in the ini and the button in the script..

//BtnSetVisibility(DirectXCheck,False);
DirectXLabel.Visible:=ExpandConstant('{code:Redist 1Name}') <> '';

Help please.. Thanks

[y_thelastknight]

@logrim Contact me in fb.. i have to confirm something.

[y_thelastknight]

Originally Posted by Logrim

How to make a botva button visible or invisible in ini file? i have botva buttons for redist checkboxes, and redist names in ini. i want that when i set not visible the directX label for example, the directx button not visible too. Now i have this in CuPageChanged and work well,, but i have to hide the label in the ini and the button in the script..



Help please.. Thanks

BtnSetVisibility(DirectXCheck,ExpandConstant('{cod e:Redist 1Name}') <> '');
DirectXLabel.Visible:=ExpandConstant('{code:Redist 1Name}') <> '';

[ahmetbtmn]

How to use precomp+srep+lzma64 or precomp+srep64+lzma in bat file? for example Razor12911 code: -mprecomp+srep64+lzma64:a1:mfbt4:d158m:fb273:mc1000 :lc8

I add code in bat file but gives error unsupported.

[Razor12911]

copy and paste arc.ini lzma64.exe and srep64.exe from conversion packer to your bat location

[Shadow Delta]

Could all these customization which inno can deliver, could possibly be achieved by NSIS? or does the form have a dedicated session for NSIS scripts and tool like Inno has?

[Razor12911]

yea I think so as long as there are libraries for NSIS that can do the same with Inno, you can always import some abilities from dll files.

[Danik1B9]

Hi I use this compression: arc a -ep1 -ed -r -w.\Data\ Data-09a.db -msrep+delta+rep+lzma:a1:mfbt4:d158m:fb273:mc1000:l c8 "D:\1\*" I know it even better, can anyone advise what mni, eg: BLACKBOX, RG Mechanics, RG Revenants. thanks

[Logrim]

Hi, i need help with a little thing.. I try to explain the problem with my poor english..

I need to know how to move a custom form and at same time move the wizardform..
I mean move the two as if it were one.

I hope you understand me .. thanks.

[Logrim]

Hi all,, please i need to know how to make a custom new folder button in a custom folderbrowse form. thanks..