INNO TROUBLESHOOT - Questions Here

[Logrim]

Thanks Razor, but i explain it badly.. if game is installed, i need to detect it an offer unninstall, but the problem is solved days ago,, sorry for no reply.. i finally make a custom form, that detect install in the beggining, and offer unninstall and repair .

[Logrim]

Edited.. Problem solved for my own..

[Logrim]

Another rapid question.. i have a custom form made for disc change, but i dont know how to "activate" the form without isdone. With isdone is not problem but without isdone i dont know where to put the code for where change disc form appears..

P.D. sorry if my english is not good

P.D.2. Again problem solved... thanks for "your responses"

[Snipunk]

I'm familIarizing myself with inni setup and I have repacked some games before (simple methods).
But I couldn't get a hint about what "yener CI" is, can any one tell me our post a link where I could get it or what it is, please?

[Razor12911]

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

[Logrim]

I have a little problem. I try to make a function to show text when mouse is over a button.. i need to put two diferent text in each button. My problem is that the first text work fine but with the second text i get an error "colon ( : ) expected".

This is the code of one of the button:

procedure MessageOnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
case hBtn of
NextBtn:
MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;

Thanks for your help

[altef_4]

Originally Posted by Logrim

I have a little problem. I try to make a function to show text when mouse is over a button.. i need to put two diferent text in each button. My problem is that the first text work fine but with the second text i get an error "colon ( : ) expected".

This is the code of one of the button:

procedure MessageOnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
case hBtn of
NextBtn:
MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;

Thanks for your help

procedure MessageOnEnter(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
case hBtn of
NextBtn: MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
end;
end;

procedure MessageOnLeave(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseleave.wav' ), $0001);
case hBtn of
NextBtn: MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;
end;
...
BtnSetEvent(NextBtn,BtnEnterEventID,CallbackAddr(' MessageOnEnter'));
BtnSetEvent(NextBtn,BtnLeaveEventID,CallbackAddr(' MessageOnLeave'));

[Logrim]

Work fine,, but i need the two messages OnEnter. I need something similar to your new EI demo altef,, for example when mouse down on option button, display two text.. one with "options text title" and one with "options text description". ohh,, i forget,, and when not button on mouse down, i like the text dissapears.. sorry for the disturb

[altef_4]

procedure MessageOnEnter(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
case hBtn of

NextBtn:
begin
MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;

end;
end;

procedure MessageOnLeave(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseleave.wav' ), $0001);
case hBtn of

NextBtn:
begin
MessageTitleLabel.Caption:='';
MessageLabel.Caption:='';
end;

end;
end;

[Logrim]

Thanks man,, work perfectly.. i look newbie on this... BEGIN, END... ains.. thanks a lot again man.

[Logrim]

Altef,, the MessageOnEnter procedure works fine, but how change the finish button caption? i mean when finish, the caption is the StartTittle but i need to change to FinishTittle..

[Razor12911]

procedure MessageOnEnter(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
if WizardForm.CurPageID = wpFinished then
begin
case hBtn of
NextBtn:
begin
MessageTitleLabel.Caption:=ExpandConstant('Whateve r, blah, write here');
MessageLabel.Caption:=ExpandConstant('Whatever, blah, write here');
end;
end else begin
case hBtn of
NextBtn:
begin
MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;
end;
end;
end;

[Logrim]

Thanks razor,, work like a charm :d.. i forgot to include wizardform in curpageid... ains..

Another problem... i hope,, really i hope is the last.. when i cancel the installation (external compression) even in 1% or 2%, the correct message of rollingback appears, but the setup dont quit.. i dont know why.. this is my cancel procedure:

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0001);
Confirm:=False;
if CurPageID=wpInstalling then SuspendProc;
if CurPageID=wpInstalling then
begin
ISDoneError:=True;
ISDoneCancel:=1;
CoderLabel.Hide;
PercentageLabel.Hide;
WizardForm.Progressgauge.Hide;
FileStatusLabel.Setbounds(350,325,500,15);
FileStatusLabel.Font.Color:=clRed;
FileStatusLabel.Caption:=ExpandConstant('{cm:Rolli ngFileStatusLabel}');
DelTree(ExpandConstant('{app}'), True, True, True);
end;
if CurPageID=wpInstalling then ResumeProc;
end;

[Razor12911]

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0001);
Confirm:=False;
Cancel:=True;
if CurPageID=wpInstalling then SuspendProc;
if CurPageID=wpInstalling then
begin
ISDoneError:=True;
ISDoneCancel:=1;
CoderLabel.Hide;
PercentageLabel.Hide;
WizardForm.Progressgauge.Hide;
FileStatusLabel.Setbounds(350,325,500,15);
FileStatusLabel.Font.Color:=clRed;
FileStatusLabel.Caption:=ExpandConstant('{cm:Rolli ngFileStatusLabel}');
DelTree(ExpandConstant('{app}'), True, True, True);
end;
if CurPageID=wpInstalling then ResumeProc;
end;

[Logrim]

i have a little problem.. i want the destock shorcut checked in the setup, but i dont find a way to work..

this is my shorcut procedures:

procedure DesktopClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\Click.wav'), $0001);
if BtnGetChecked(hBtn) then CreateDLabel.Font.Color:=$20A5DA else CreateDLabel.Font.Color:=$008CFF;
end;

procedure DesktopLabelClick(Sender:TObject);
begin
BtnSetChecked(DesktopCheck, not BtnGetChecked(DesktopCheck));
DesktopClick(DesktopCheck);
end;

Thanks

P.D. Problem solved,, was easy... ains.. only adding " BtnSetChecked(DesktopCheck,True)" to wpwelcome in CurPageChanged..