INNO TROUBLESHOOT - Questions Here

[y_thelastknight]

no bro i need like this, but it not working.

procedure AboutButtonOnClick(Sender: TObject);
begin

If CurPageID=wpWelcome then
begin
MsgBox('Hello.', mbInformation, MB_OK);
end;

If CurPageID=wpSelectDir then
begin
MsgBox('Hello.', mbInformation, MB_OK);
end;

end;

[altef_4]

Originally Posted by y_thelastknight

no bro i need like this, but it not working.

procedure AboutButtonOnClick(Sender: TObject);
begin

If CurPageID=wpWelcome then
begin
MsgBox('Hello.', mbInformation, MB_OK);
end;

If CurPageID=wpSelectDir then
begin
MsgBox('Hello.', mbInformation, MB_OK);
end;

end;

[code]
var
  PageID: integer;

procedure CurPageChanged(CurPageID: integer);
begin
  PageID:=CurPageID;
end;

procedure AboutButtonOnClick(Sender: TObject);
begin
case PageID of
  wpWelcome: MsgBox('wpWelcome', mbInformation, MB_OK);
  wpLicense: MsgBox('wpLicense', mbInformation, MB_OK);
  wpPassword: MsgBox('wpPassword', mbInformation, MB_OK);
  wpInfoBefore: MsgBox('wpInfoBefore', mbInformation, MB_OK);
  wpUserInfo: MsgBox('wpUserInfo', mbInformation, MB_OK);
  wpSelectDir: MsgBox('wpSelectDir', mbInformation, MB_OK);
  wpSelectComponents: MsgBox('wpSelectComponents', mbInformation, MB_OK);
  wpSelectProgramGroup: MsgBox('wpSelectProgramGroup', mbInformation, MB_OK);
  wpSelectTasks: MsgBox('wpSelectTasks', mbInformation, MB_OK);
  wpReady: MsgBox('wpReady', mbInformation, MB_OK);
  wpPreparing: MsgBox('wpPreparing', mbInformation, MB_OK);
  wpInstalling: MsgBox('wpInstalling', mbInformation, MB_OK);
  wpInfoAfter: MsgBox('wpInfoAfter', mbInformation, MB_OK);
  wpFinished: MsgBox('wpFinished', mbInformation, MB_OK);
end;
end;

[y_thelastknight]

thanks works fine.

[reiji777]

Originally Posted by y_thelastknight

hi fellow Member

Check my Attached exe and tell me how is it?

how to make like this m8?

[y_thelastknight]

Originally Posted by reiji777

how to make like this m8?

script.

[Vatsal Singh]

How to add splash in yener90's script (CIU 1.0.0.6).Thank in advance

[y_thelastknight]

Originally Posted by Vatsal Singh

How to add splash in yener90's script (CIU 1.0.0.6).Thank in advance

put the splash.png file in setup.cab file..it works.

[Logrim]

Three little question,, help me please ..

1. When unninstall, how to delete the main folder of the installer? the folder is empty but still in program files.. i try with deltree in CurUninstallStepChanged, and with [UninstallDelete] and nothing works.

2. Same problem that the fist, but when cancel the installation. This is worst.. because when cancel, the main folder AND subdirectories still there.

3. The shit png in unninstall doest show.. i think i put in the incorrect line, but i'm a little lost..

My unninstall code is this:

procedure InitializeUninstallProgressForm;
var
img:Longint;
UnsStatusLabel, UnsGameNameLabel: Tlabel;

begin
FileCopy(ExpandConstant('{app}\Background.png'), ExpandConstant('{tmp}\Background.png'), True);
FileCopy(ExpandConstant('{app}\isskinU.dll'), ExpandConstant('{tmp}\isskinU.dll'), True);
FileCopy(ExpandConstant('{app}\{#Skin}'), ExpandConstant('{tmp}\{#Skin}'), True);
FileCopy(ExpandConstant('{app}\botva2.dll'), ExpandConstant('{tmp}\botva2.dll'), True);
FileCopy(ExpandConstant('{app}\CallbackCtrl'), ExpandConstant('{tmp}\CallbackCtrl'), True);
FileCopy(ExpandConstant('{app}\UninstData.ini'),Ex pandConstant('{tmp}\Setup.ini'),False);
LoadSkinUninst(ExpandConstant('{tmp}\{#Skin}'), '');

with UninstallProgressForm do begin
BorderStyle := bsNone;
AutoScroll := False;
ClientWidth := ScaleX(650);
ClientHeight := ScaleY(400);
Position:= poScreenCenter;
UninstallProgressForm.InnerNotebook.SetBounds(0,0, 650,400);
UninstallProgressForm.OuterNotebook.SetBounds(0,0, 650,400);

Bevel.Hide;
StatusLabel.Hide;
MainPanel.Hide;
WizardSmallBitmapImage.Hide;
CancelButton.Visible:=True;

ProgressBar.SetBounds(ScaleX(185), ScaleY(374), ScaleX(455), ScaleY(15));

UnsStatusLabel:= TLabel.Create(UninstallProgressForm.InstallingPage );
UnsStatusLabel.SetBounds(ScaleX(15), ScaleY(374), ScaleX(200), ScaleY(30));;
UnsStatusLabel.AutoSize:= False;
UnsStatusLabel.WordWrap:= True;
UnsStatusLabel.Transparent:= True;
UnsStatusLabel.Font.Color:= clSilver;
UnsStatusLabel.Font.Size:= 8
UnsStatusLabel.Font.Name := 'Verdana'
UnsStatusLabel.Caption:= 'Estado de la desinstalación:';
UnsStatusLabel.Parent:= UninstallProgressForm.InstallingPage;

UnsGameNameLabel:= TLabel.Create(UninstallProgressForm.InstallingPage );
UnsGameNameLabel.SetBounds(ScaleX(15), ScaleY(6), ScaleX(500), ScaleY(15));
UnsGameNameLabel.AutoSize:= False;
UnsGameNameLabel.WordWrap:= True;
UnsGameNameLabel.Transparent:= True;
UnsGameNameLabel.Font.Color:= clSilver;
UnsGameNameLabel.Font.Size:= 9
UnsGameNameLabel.Font.Name := 'Verdana'
UnsGameNameLabel.Caption:= 'Desinstalando archivos, por favor espere...';
UnsGameNameLabel.Parent:= UninstallProgressForm.InstallingPage;
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
begin
DelTree('{app}', True, True, True);
RegDeleteKeyIncludingSubkeys(HKLM, ExpandConstant('Software\{code:GamePublisher}\{cod e:GameName}'));
img:=ImgLoad(UninstallProgressForm.Handle,ExpandCo nstant('{tmp}\Background.png'),10,27,630,335,True, True);
ImgApplyChanges(UninstallProgressForm.Handle);
end;
end;

[Logrim]

Anyone knows which is the name of this window in innosetup, and if its posible modify it?

[y_thelastknight]

Originally Posted by Logrim

Anyone knows which is the name of this window in innosetup, and if its posible modify it?

There is No name for this window i think
Yup you can create a form for it and call it..you can edit the form however you want it.

[reiji777]

Originally Posted by y_thelastknight

script.

the drive letter on the left and the bar won't show up m8. please help

[Logrim]

y_TheLastKnight please.. can you tell me with and example? thought i have resolved, but this morning i'm little silly .. all that i want is remove the border.. "bsNone".. and change the buttons with botva2, same that change in wizarform.

[Darkangel5]

sorry to use google translation to translate

I need your service.
I am trying to make an autorun and I would like to know:

how to use the roundedcorner

how to scroll a text to a point defined

thank you

[sentinelks]

Originally Posted by reiji777

the drive letter on the left and the bar won't show up m8. Please help

use inno ansi

[y_thelastknight]

Originally Posted by Logrim

y_TheLastKnight please.. can you tell me with and example? thought i have resolved, but this morning i'm little silly .. all that i want is remove the border.. "bsNone".. and change the buttons with botva2, same that change in wizarform.

ask razor about this.. i just know that..thats all