INNO TROUBLESHOOT - Questions Here

[GloverK1911]

Originally Posted by y_thelastknight

Then i have to check on pc
Right now i cant use pc

Can you help me as soon as possible no? I'm very need it

[EA-Games]

the percent ..
i want it 100% normal .


this is the script ::
http://www.mediafire.com/download/db...d1y/script.iss

[Razor12911]

http://fileforums.com/showpost.php?p...1&postcount=89

[reiji777]

should I put a different AppId for each conversion? or is it only for the updates?
and what its function and how important this AppId?
for example I had this AppId={{46C93620-0A14-4C5B-B1D5-362233D85F30} for one program can I change it manually?
somehow in yener script I didn't find this entry line.

[Razor12911]

it's up to you but using the same AppId will use previous installation data, better use Different AppID.

AppId is the program uninstall description shard whereby uninstall information is stored. AppId is also optional, you can choose not to use then Inno Setup will use AppName as AppId.

[GloverK1911]

Razor12911 can u help me check the script? I very need it. Plz

[Logrim]

Hi,, i need help.. again.. how can i put this code in a custom label?

(ExpandConstant('{cm:ChangeDisk} ') + Arc1[2], mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;

Thanks for your help.

[altef_4]

Originally Posted by Logrim

Hi,, i need help.. again.. how can i put this code in a custom label?



Thanks for your help.

YourCustomLabel.Caption := ExpandConstant('{cm:ChangeDisk} ') + Arc1[2];

[Logrim]

Thanks Altef,, but dont work,, is not a label, sorry is a tnewstatictext, i create a form, and i want to skin my "insert disc 1" msgbox like i made with the custom exit, but i have problem inserting that code

I'll show you the code of the custom form, and the part where i want to put it,, if you can help me with that i'm very thankful to you.

The change disc custom form:

///////////////////////////////////////////////////////////CUSTOM CHANGE DISC FORM
procedure ButtonOnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0002);
case hBtn of
CDYesBtn: begin MyExit.ModalResult:= mrYes; end;
CDNoBtn: begin MyExit.ModalResult:= mrNo; end;
end;
end;

procedure MyChangeDiscMessage();
begin
MyChangeDisc := CreateCustomForm();
with MyChangeDisc do
begin
BorderStyle:= bsNone;
Position := poScreenCenter;
ClientWidth := WizardForm.Width;
ClientHeight := WizardForm.Height div 2;
Color := clBlack;

with TNewStaticText.Create(MyChangeDisc) do
begin
Left := ScaleX(110);
Top := ScaleY(20);
Width := MyChangeDisc .Width - ScaleX(115);
Height := MyChangeDisc .Height div 2;
AutoSize := False;
WordWrap := True;
Caption := ExpandConstant('{cm:ChangeDisk} ') + Arc1[2];
Parent := MyChangeDisc ;
Font.Color := clWhite;
end;
end;

CDYesBtn:=BtnCreate(MyChangeDisc .Handle,572,5,15,15,ExpandConstant('{tmp}\ExitBtn. png'),0,False);
BtnSetEvent(CDYesBtn,BtnClickEventID,WrapBtnCallba ck(@ButtonOnClick,1));
BtnSetEvent(CDYesBtn,BtnMouseEnterEventID,WrapBtnC allback(@BtnEnter,1));
BtnSetCursor(CDYesBtn,GetSysCursorHandle(32649));

CDNoBtn:=BtnCreate(MyChangeDisc .Handle,560,5,15,15,ExpandConstant('{tmp}\OkBtn.pn g'), 0, false);
BtnSetEvent(CDNoBtn,BtnClickEventID,WrapBtnCallbac k(@ButtonOnClick,1));
BtnSetEvent(CDNoBtn,BtnMouseEnterEventID,WrapBtnCa llback(@BtnEnter,1));
BtnSetCursor(CDNoBtn,GetSysCursorHandle(32649));
end;
////////////////////////////////////////////////////////////////////////////////////////////////

And in this part of the code is where i want to skin the msgbox:

if Arc1[0] <> '' then
begin
if not FileExists(Arc1[0]) then
begin
if MsgBox(ExpandConstant('{cm:ChangeDisk} ') + Arc1[2], mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;
end else begin
if not ISArcExtract( 0, 0, Arc1[0], Arc1[1], '', false, Arc1[3], ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then ISDoneError := True;
i:= i + 1;
end;
end;

[y_thelastknight]

If im correct delete this line

if MsgBox(ExpandConstant('{cm:ChangeDisk} ') + Arc1[2], mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;

It would be like this

MyChangeDiscMessage;
MyChangeDisc.showmodel;
If modelresult=mrno then ISDoneError := True;

procedure ButtonOnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0002);
case hBtn of
CDYesBtn: begin MyExit.ModalResult:= mrYes; end;
CDNoBtn: begin MyExit.ModalResult:= mrNo; end;
end;
end;

What is that?? Is that fine??

Correct me if im wrong

[Logrim]

Thanks y_thelastnight, work fine, the form show correctly, but there is two little problems :d.. the buttons ok and cancel, not work well, and i cant show one part of the message..
this code part

+ Arc1[2]

dont work,, "unknow identifier Arc1[2]" error.

And the buttons how i say dont work .. but thanks man, i have problems calling custom forms .. Still on vacations, by the way? :P

[y_thelastknight]

Originally Posted by Logrim

the buttons ok and cancel, not work well, and i cant show one part of the message..
this code part dont work,, "unknow identifier Arc1[2]" error.

I know button wont work like this situation.we did with another method create tbutton and made them as mrok and mrno and call them with botva2 button.

unknow identifier Arc1[2]

Set the var and try. I guess this is the problem. But im not pro you know

Still on vacations, by the way? :P

Yup

[Darkangel5]

sorry to use google translation to translate

I need your service.
how to scroll a text to a point defined

thank you

[Logrim]

I forget to set the var.. ains.. sorry for the silly cuestion y_thelasknight.. but the buttons still doesnt work,, i test in some ways and nothing work.

[y_thelastknight]

Did you try with only tbutton??did it works??