INNO TROUBLESHOOT - Questions Here

[nizcoz]

@pakrat2k2 or @Bulat Can you give me an example of use of facompress.dll and fazip.exe? (ISDone). Please, thanks.

[johnnyusa]

Luis, Delphi 9 is fully compatible with unicode, that's why your script is working properly, you can try to compile Inno Unicode with Delphi 2009, worked for me. Also you can dll your functions in Delphi 2009 and should work fine in Inno.

Now a question, is there a way to get Inno Setup Extended Edition sorce code? I'd like to compile my own Inno with a different DiskID.

[Danziel123]

How to make 2 or more icon in inno setup?

[pakrat2k2]

Originally Posted by Danziel123

How to make 2 or more icon in inno setup?

try:

[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"; Components: main; Tasks: startmenu
Name: "{group}\My Program Help"; Filename: "{app}\MyProg.chm"; Components: help; Tasks: startmenu
Name: "{commondesktop}\My Program"; Filename: "{app}\MyProg.exe"; Components

or in INNO > HELP > documentation, search for icon, for more info.

[seventhorama]

i need some help in modifying xml using innosetup

<?xml version="1.0"?>
<Settings>
  <Setting type="10" key="DownloadInPlaceDir" value="D:\Games\My Games"/>
  <Setting type="10" key="LastUsernameToLoginProd" value="fb2076434038419fa915a7c07bc4768f2b847bd600b9482d440f1ced341a48c64654c4fdec3f57a7b1b35d4913675d33d8c7793691b0ff84caaf6815ee873f91964e2fe64cbf4683"/>
  <Setting type="10" key="RememberMeProd" value="1b07700a38e33470"/>
  <Setting type="10" key="RememberMeUserIdProd" value="1b07700a38e33470"/>
  <Setting type="10" key="TFAIdProd" value="1b07700a38e33470"/>
</Settings>

can i modify D:\Games\My Games into parent dir (not app dir)?

i have tried this script but no luck yet...

procedure CurStepChanged(CurStep: TSetupStep);
var
  UnicodeStr: string;
  ANSIStr: AnsiString;
begin
  if (CurStep = ssPostInstall) then
  begin
  LoadStringFromFile(ExpandConstant('{src}\apps.xml'), ANSIStr)
  UnicodeStr := String(ANSIStr);
  StringChangeEx(UnicodeStr, 'DownloadInPlaceDir', ExpandConstant('{src}'), False)
  SaveStringToFile(ExpandConstant('{src}\apps.xml'), AnsiString(UnicodeStr), False);
  end;
end;

[KaktoR]

Need some help.

function InitializeSetup(): Boolean;
begin
    if FileExists(ExpandConstant('{tmp}\Setup.cjstyles')) then begin
      LoadSkin(ExpandConstant('{tmp}\Setup.cjstyles'), '');
      Result := True;
    end;
    if FileExists(ExpandConstant('{tmp}\Setup.vsf')) then begin
      LoadVCLStyle(ExpandConstant('{tmp}\Setup.vsf'));
      Result := True;
    end;
end;


procedure DeinitializeSetup();
begin
  if FileExists(ExpandConstant('{tmp}\Setup.cjstyles')) then begin
    UnloadSkin();
  end;
  if FileExists(ExpandConstant('{tmp}\Setup.vsf')) then begin
    UnLoadVCLStyles;
  end;
end;

Setup.exe don't start, it just closes.

Maybe i am blind and don't see the mistake

Edit: Ok after a cup of coffee i just found my mistake.

Result := True was missing in InitializeSetup

[-NORO-]

fixed !

[Chayan Manna]

Originally Posted by -NORO-

Hello
Am trying to add a customform. To make short once you click on System Tile
that page opens.
I suceeded to make it but once open it just freezes and not moving.



Here the code

You must write a code of "mousedown" for the custom form.

[-NORO-]

Originally Posted by Chayan Manna

You must write a code of "mousedown" for the custom form.

Nevermind , fixed
Thank you JRD!

[Gupta]

Originally Posted by Chayan Manna

You must write a code of "mousedown" for the custom form.

-NORO-

he is asking for form's mouse drag functionality. This is what happens when you copy the code, doesn't know what is really the purpose behind, conjectures is all you got and foul perceptions

[Chayan Manna]

Originally Posted by PrinceGupta2000

he is asking for form's mouse drag functionality. This is what happens when you copy the code, doesn't know what is really the purpose behind, conjectures is all you got and foul perceptions

That's the thing I have said him. I made the reply from my phone so, that's why I have not wrote the full code. I know all the purpose of the code.
The procedure "onmousedown" is a fixed property of a label in a custom form in which one have to add the mouse drag procedure. like this,
OnMouseDown:=@INFOMouseDown;
And the "INFOMouseDown" procedure is the mouse drag procedure which can be like this,
procedure INFOMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(InfoForm.Handle,$0112,$F012,0);
end;

And one thing, you have cracked my mod, so You can see there is more things than coping a code. No one can make such type of mod by just only coping the codes.

[-NORO-]

Originally Posted by Chayan Manna

That's the thing I have said him. I made the reply from my phone so, that's why I have not wrote the full code. I know all the purpose of the code.
The procedure "onmousedown" is a fixed property of a label in a custom form in which one have to add the mouse drag procedure. like this,
OnMouseDown:=@INFOMouseDown;
And the "INFOMouseDown" procedure is the mouse drag procedure which can be like this,
procedure INFOMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(InfoForm.Handle,$0112,$F012,0);
end;

And one thing, you have cracked my mod, so You can see there is more things than coping a code. No one can make such type of mod by just only coping the codes.

That wasnt the problem

[KaktoR]

Anyone knows how to draw shadow on text TLabel?

Google comes up with nothing.

[Gupta]

yener had used A dummy label to use as shadows.
jst top and left property be +1 else everything is same

procedure UpdateShadow(var Current, Shadow :TLabel);
begin
  if Shadow = nil then
    Shadow := TLabel.Create(WizardForm);
  if Current.Visible and (ShadowTXT >= 0) then begin
    with Shadow do begin
      Caption := Current.Caption;
      Alignment := Current.Alignment;
      AutoSize := Current.Autosize;
      Transparent := Current.Transparent;
      WordWrap := Current.Wordwrap;
      Parent := Current.Parent;
      OnClick := Current.OnClick;
      OnDblClick := Current.OnDblClick;
      OnMouseDown := Current.OnMouseDown;
      OnMouseMove := Current.OnMouseMove;
      OnMouseUp := Current.OnMouseUp;
      Font.Color := ShadowTXT;  
      Font.Size := Current.Font.Size;
      Font.Name := Current.Font.Name;
      Font.Style := Current.Font.Style;
      Visible := Current.Visible;
      Height := Current.Height;
      Width := Current.Width;
      Left := Current.Left + 1;
      Top := Current.Top + 1;
      SendToBack;
    end;
  end else
    Shadow.Hide;
end;

or
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

[KaktoR]

procedure CurPageChanged(CurPageID: integer);
  begin
  case CurPageID of
    wpInstalling: begin
      WizardForm.ClientHeight := (180);
      WizardForm.ClientWidth := (497);
      WizardForm.CancelButton.SetBounds(ScaleX(75), ScaleY(23), ScaleX(412), ScaleY(327));
...
...

I'm not able to move Cancel button on installing page. Anyone knows why?

Also, BackButton just disappears with this

wpSelectDir: begin
      WizardForm.NextButton.Caption := 'Install';
      WizardForm.BackButton.SetBounds(ScaleX(75), ScaleY(23), ScaleX(242), ScaleY(227));

I have to define these buttons seperatly? I just thought because there are already in "InnoSetup Support" tab.