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:[email protected];
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:[email protected];
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

[Chayan Manna]

Originally Posted by -NORO-

That wasnt the problem

So, What's the problem?

[-NORO-]

Originally Posted by Chayan Manna

So, What's the problem?

The
procedure CreateSystemPage();
i placed under InitializeWizard; but it should be placed under InitializeSetup

Again all credit goes to JRD!

[KaktoR]

Anyone knows how to draw shadow on text TLabel?

Google comes up with nothing.