FileForums

FileForums (https://fileforums.com/index.php)
-   Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)
-   -   INNO TROUBLESHOOT - Questions Here (https://fileforums.com/showthread.php?t=93193)

Razor12911 02-02-2013 08:39

Quote:

Originally Posted by Andre Jesus (Post 413421)
Thank you for your help.
Now work correctly.

Attachment 5542

Attachment 5543

Attachment 5544

Attachment 5545

Awesome installer man.

What else?

Andre Jesus 02-02-2013 10:11

Quote:

Originally Posted by Razor12911 (Post 413452)
Awesome installer man.

What else?


Hello, how are you doing?
That example of the button is complete? There a message saying THIS IS NOT COMPLETE.

Also, if you help me about the question (post #159), i will be grateful.

Razor12911 03-02-2013 01:56

Quote:

Originally Posted by Andre Jesus (Post 413453)
Hello, how are you doing?
That example of the button is complete? There a message saying THIS IS NOT COMPLETE.

Also, if you help me about the question (post #159), i will be grateful.

Post #159

Filecopy uninstall.jpg to app directory.

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

Compiler 03-02-2013 05:48

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 03-02-2013 05:51

Quote:

Originally Posted by Compiler (Post 413470)
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 03-02-2013 05:53

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

Compiler 03-02-2013 06:02

Quote:

Originally Posted by Razor12911 (Post 413472)
-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 03-02-2013 08:53

Quote:

Originally Posted by Compiler (Post 413473)
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 03-02-2013 09:59

1 Attachment(s)
Quote:

Originally Posted by Razor12911 (Post 413469)
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.
Attachment 5552

thilanka 03-02-2013 23:19

I want to Automatically detect and set MAC Address to Input Query when i run setup
 
(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 04-02-2013 04:41

1 Attachment(s)
Quote:

Originally Posted by Razor12911 (Post 413093)
[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:
Attachment 5560

Razor12911 04-02-2013 06:17

Quote:

Originally Posted by Andre Jesus (Post 413487)
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 05-02-2013 02:17

Quote:

Originally Posted by Razor12911 (Post 413488)
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 05-02-2013 05:11

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:
Code:

#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 05-02-2013 05:22

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 05-02-2013 05:46

Quote:

Originally Posted by Andre Jesus (Post 413526)
Great suggestion.
I will try to do this.

This is complete? (see #158).

Thanks.

Post #158

Test it.

Andre Jesus 09-02-2013 10:13

Quote:

Originally Posted by pakrat2k2 (Post 412476)
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 09-02-2013 10:15

Where are the setup files?

Andre Jesus 09-02-2013 10:27

Quote:

Originally Posted by Razor12911 (Post 413752)
Where are the setup files?

Hi Razor12911.

Here is.
Attachment 5616

Thanks in advance.

Razor12911 09-02-2013 10:29

what is wrong with script?

Andre Jesus 09-02-2013 10:31

Quote:

Originally Posted by Razor12911 (Post 413754)
what is wrong with script?

The music and on/off music button donīt worked.

Razor12911 09-02-2013 10:36

I don't even see it.

Andre Jesus 09-02-2013 10:47

Quote:

Originally Posted by Razor12911 (Post 413756)
I don't even see it.

Please see the script below.
I used this script in my script but the button and the music donīt appear.

Razor12911 09-02-2013 11:09

Replace bass script with another one.

Andre Jesus 09-02-2013 11:11

Quote:

Originally Posted by Razor12911 (Post 413488)
Mhhm, awesome. Hide progressbar and install a new progressbar with .png via PBProc

Can you please show an example?

Razor12911 09-02-2013 11:17

1 Attachment(s)
Bass Scripts

Razor12911 09-02-2013 11:25

CJ Style Pack
 
1 Attachment(s)
Addon Pack for Installer Source Codes:

Cjstyle Theme Pack

This Package Contains: 200+ Styles(No Joke [Super Compressed]):D

Enjoy!!!

Compressed Size := 15MB
Original Size := 375MB
Password := Fileforums

Andre Jesus 09-02-2013 11:25

Quote:

Originally Posted by Razor12911 (Post 413760)
Bass Scripts

Thanks for your response.
But if i use the bass script i will have the same error that i show in the post #174.

Razor12911 09-02-2013 11:38

Remove bass then move onto something else like custom progressbar.

I also haven't installed bass in my script.

Andre Jesus 09-02-2013 11:59

Quote:

Originally Posted by Razor12911 (Post 413761)
Addon Pack for Installer Source Codes:

Cjstyle Theme Pack

This Package Contains: 200+ Styles(No Joke [Super Compressed]):D

Enjoy!!!

Compressed Size := 15MB
Original Size := 375MB
Password := Fileforums

Very nice.Thank you.
I will try to fix the music and button on/off on my installer.
If i fix the problem, i will show you to you use, if you want, on your installer.
Can you show me the face of your installer?

Regards.

Razor12911 09-02-2013 12:16

1 Attachment(s)
There.

Andre Jesus 09-02-2013 12:22

Quote:

Originally Posted by Razor12911 (Post 413765)
There.

Very cool man.
The button is very nice. I still try to make work in my installer your tip (post #158).

Razor12911 09-02-2013 12:28

Ok. What else?

Andre Jesus 09-02-2013 13:24

Quote:

Originally Posted by Razor12911 (Post 413767)
Ok. What else?

Do you use precomp method to reduce the installer size? If so, please show me a example.
See the linlk below (post #6). I beleive that was used the precompr method. I used just lzma2/Ultra64 of inno, but it was not the same size

http://fileforums.com/showthread.php...ight=inversion

Razor12911 09-02-2013 13:51

Probably Precomp Compression wasn't used in that conversion.

But this Compression was used : LZMA2/Ultra64

But also some content was also removed.

That's the reason why sizes are different.

Andre Jesus 12-02-2013 17:32

Hello.

Has a any way to make the uninstall files (JPEG, DLL, PNG...) stay inside of the unins000.exe? If so, please show the code.

Razor12911 13-02-2013 06:19

Quote:

Originally Posted by Andre Jesus (Post 413888)
Hello.

Has a any way to make the uninstall files (JPEG, DLL, PNG...) stay inside of the unins000.exe? If so, please show the code.

I don't think it's possible.

Andre Jesus 13-02-2013 08:12

Quote:

Originally Posted by Razor12911 (Post 413175)
here is example

[Files]
Source: buttons.png; DestDir: {tmp}; Flags: dontcopy

[Code]
var
hback, hnext, hcancel :Longint
ButtonFont: TFont;

procedure SetStateNewButtons;
begin

with WizardForm.BackButton do begin
BtnSetText(hBackBtn,PAnsiChar(Caption));
BtnSetVisibility(hBackBtn,Visible);
BtnSetEnabled(hBackBtn,Enabled);
end;

with WizardForm.NextButton do begin
BtnSetText(hNextBtn,PAnsiChar(Caption));
BtnSetVisibility(hNextBtn,Visible);
BtnSetEnabled(hNextBtn,Enabled);
end;

with WizardForm.CancelButton do begin
BtnSetText(hCancelBtn,PAnsiChar(Caption));
BtnSetVisibility(hCancelBtn,Visible);
BtnSetEnabled(hCancelBtn,Enabled);
end;
end;


procedure WizardFormBtnClick(hBtn:HWND);
var
Btn:TButton;
begin
case hBtn of
hCancelBtn: Btn:=WizardForm.CancelButton;
hNextBtn: Btn:=WizardForm.NextButton;
hBackBtn: Btn:=WizardForm.BackButton;
hDirBrowseBtn: Btn:=WizardForm.DirBrowseButton;
hGroupBrowseBtn: Btn:=WizardForm.GroupBrowseButton;
end;
Btn.OnClick(Btn);
SetStateNewButtons;
BtnRefresh(hBtn);
end;

Procedure ButtonsTexture;
begin
ButtonFont:=TFont.Create;
ButtonFont.Name:='Arial';
ButtonFont.Size:=13;
ButtonFont.Color:=$FFFFFF;
with WizardForm.BackButton do begin
hBackBtn:=BtnCreate(WizardForm.Handle,Left-52,Top-65,Width+25,Height+16,ExpandConstant('{tmp}\button .png'),18,False);
BtnSetEvent(hBackBtn,BtnClickEventID,WrapBtnCallba ck(@WizardFormBtnClick,1));
BtnSetFont(hBackBtn,ButtonFont.Handle);
BtnSetFontColor(hBackBtn,$DAE369,$DAE369,$DAE369,$ B6B6B6);
BtnSetCursor(hBackBtn,GetSysCursorHandle(32649));
Width:=0;
Height:=0;
end;

with WizardForm.NextButton do begin
hNextBtn:=BtnCreate(WizardForm.Handle,Left-28,Top-65,Width+25,Height+16,ExpandConstant('{tmp}\button .png'),18,False);
BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallba ck(@WizardFormBtnClick,1));
BtnSetFont(hNextBtn,WFButtonFont.Handle);
BtnSetFontColor(hNextBtn,$DAE369,$DAE369,$DAE369,$ B6B6B6);
BtnSetCursor(hNextBtn,GetSysCursorHandle(32649));
Width:=0;
Height:=0;
end;

with WizardForm.CancelButton do begin
hCancelBtn:=BtnCreate(WizardForm.Handle,Left-223,Top-65,Width+25,Height+16,ExpandConstant('{tmp}\button .png'),18,False);
BtnSetEvent(hCancelBtn,BtnClickEventID,WrapBtnCall back(@WizardFormBtnClick,1));
BtnSetFont(hCancelBtn,ButtonFont.Handle);
BtnSetFontColor(hCancelBtn,$DAE369,$DAE369,$DAE369 ,$B6B6B6);
BtnSetCursor(hCancelBtn,GetSysCursorHandle(32649)) ;
Width:=0;
Height:=0;
end;

with WizardForm.DirBrowseButton do begin
hDirBrowseBtn:=BtnCreate(WizardForm.Handle,Left+15 0,Top+55,Width-40,Height+10,ExpandConstant('{tmp}\browse.png'),6, False);
BtnSetEvent(hDirBrowseBtn,BtnClickEventID,WrapBtnC allback(@WizardFormBtnClick,1));
BtnSetFont(hDirBrowseBtn,ButtonFont.Handle);
BtnSetFontColor(hDirBrowseBtn,$DAE369,$DAE369,$DAE 369,$B6B6B6);
BtnSetCursor(hDirBrowseBtn,GetSysCursorHandle(3264 9));
Width:=0;
Height:=0;
end;

with WizardForm.GroupBrowseButton do begin
hGroupBrowseBtn:=BtnCreate(WizardForm.Handle,Left+ 150,Top+55,Width-40,Height+10,ExpandConstant('{tmp}\browse.png'),6, False);
BtnSetEvent(hGroupBrowseBtn,BtnMouseEnterEventID,W rapBtnCallback(@WFBtnEnter,1));
BtnSetEvent(hGroupBrowseBtn,BtnClickEventID,WrapBt nCallback(@WizardFormBtnClick,1));
BtnSetFont(hGroupBrowseBtn,ButtonFont.Handle);
BtnSetFontColor(hGroupBrowseBtn,$DAE369,$DAE369,$D AE369,$B6B6B6);
BtnSetCursor(hGroupBrowseBtn,GetSysCursorHandle(32 649));
Width:=0;
Height:=0;
end;
end;

Razor 12911.

Thank you man, but donīt work.
Can you please revised the script? I think that problem is in var:

Code:

var
hback, hnext, hcancel :Longint


Razor12911 19-02-2013 20:44

Quote:

Originally Posted by Andre Jesus (Post 413909)
Razor 12911.

Thank you man, but donīt work.
Can you please revised the script? I think that problem is in var:

Code:

var
hback, hnext, hcancel :Longint


Fix coming soon.

spawniectes 20-02-2013 14:38

If I use this command:
Code:

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


All times are GMT -7. The time now is 09:05.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com