INNO TROUBLESHOOT - Questions Here

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

[Andre Jesus]

Originally Posted by Razor12911

Post #159

Filecopy uninstall.jpg to app directory.

then filecopy to tmp directory when uninstallling, load image, done.

Razor12911, thank you for your help again.

Work fine.
Sem título.jpg

[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;

[Andre Jesus]

Originally Posted by Razor12911

[Files]
Source: Font.ttf; DestDir: {tmp}; Flags: dontcopy;

[Code]
#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif

const
FR_PRIVATE = $10;

function AddFontResource(lpszFilename:string;fl:dword;pdv:i nteger): Integer; external 'AddFontResourceEx{#A}@gdi32.dll stdcall';
function RemoveFontResource(lpszFilename:string;fl:dword;pd v:integer): BOOL; external 'RemoveFontResourceEx{#A}@gdi32.dll stdcall';

procedure InitializeWizard;
begin
ExtractTemporaryFile('Font.ttf');
AddFontResource(ExpandConstant('{tmp}\Font.ttf'), FR_PRIVATE, 0);
end;

procedure DeinitializeSetup;
begin
RemoveFontResource(ExpandConstant('{tmp}\Font.ttf' ), FR_PRIVATE, 0);
end;

__________________________________________________ ______________

Glad could help with font.

Work on ANSI and UNICODE

Sorry for bad english.

Thank you again man.

This was the result:
1.jpg

[Razor12911]

Originally Posted by Andre Jesus

Thank you again man.

This was the result:
Attachment 5560

Mhhm, awesome. Hide progressbar and install a new progressbar with .png via PBProc

[Andre Jesus]

Originally Posted by Razor12911

Mhhm, awesome. Hide progressbar and install a new progressbar with .png via PBProc

Great suggestion.
I will try to do this.

This is complete? (see #158).

Thanks.

[Andre Jesus]

I'm having a problem with the music during installation.
If the operating system volume is at 30%, when I run the installer, it automatically goes to 100%.
Could you suggest a code that does not affect the volume of operating system?

This is the code I'm using:

#include "botva2.iss"
#include "BASS_Module.iss"

procedure InitializeWizard();
begin
  ExtractTemporaryFile('BASS.dll');
  ExtractTemporaryFile('CallbackCtrl.dll');
  ExtractTemporaryFile('botva2.dll');
  ExtractTemporaryFile('MusicButton.png');
  ExtractTemporaryFile('Music.mp3');

  BASS_Init(ExpandConstant('{tmp}\Music.mp3'))
  BASS_CreateOnOffButton(ExpandConstant('{tmp}\MusicButton.png'), 20, 320, 36, 36, 4)
end;

procedure DeinitializeSetup();
begin
  BASS_DeInit;
  gdipShutdown
end;

Thanks in advance.

[Razor12911]

check in bass script. It is best if you use 100 instead of another number.

this usually happens if you are using windows xp

[Razor12911]

Originally Posted by Andre Jesus

Great suggestion.
I will try to do this.

This is complete? (see #158).

Thanks.

Post #158

Test it.

[Andre Jesus]

Originally Posted by pakrat2k2

reg entries are simple, you grab them from your original installed game version, then using reg to inno conversion program english version ( under useful programs ( joe edited it to english from russian ) ).

http://fileforums.com/showthread.php?t=92995

Its make as ISS script from your saved reg file, the entire contents from the script go into [REGISTRY] section of your inno script.

DO NOT INSTALL, JUST RUN THE EXE TO SEE HOW THE MUSIC BUTTON LOOKS, THEN CANCEL INSTALL

here's a music button script that adds music to your script ( in russian so translate to english ). In the output dir is a setup.exe, just run it and you'll see the music botton in lower LH corner, you can change the image of the button & sound played by making appropriate changes to the files used. ( use any on CI8.5.7.4 or CIU etc for image / sound files )

good luck

Hi.
I used the script about music but don´t appear the button on/off music and the music audio..
Can you please see where is my mistake?

[Razor12911]

Where are the setup files?

[Andre Jesus]

Originally Posted by Razor12911

Where are the setup files?

Hi Razor12911.

Here is.
Attachment 5616

Thanks in advance.

[Razor12911]

what is wrong with script?