I added isdone support to a generic script. I need some help please

[ZakirAhmad]

I have little knowledge of inno scripts. I added isdone support. I just made it look like fitgirls script. Now i want to add wintb.dll support but i am getting errors.
My scripts only lacks "create desktop icon " and " dont create start icon" in select dir page, if possible please add that too. Thanks in advance.
I am uploading only .iss file as my internet speed is too damn slow (only 15kbps).

[ZakirAhmad]

I added wintb support..
now remains the win dir part, if anybody is then please help me add it.

[KaktoR]

What you mean with "win dir part" ?

For icons create first variables then functions and procedures

Example:

var
StartMenuIcons, DesktopIconCheckBox: TNewCheckBox;


function CreateIcons: Boolean;
begin
  Result := DesktopIconCheckBox.Checked;
end;

procedure StartMenuIconsClick(Sender: TObject);
begin
  if StartMenuIcons.Checked = True then begin
    WizardForm.GroupEdit.Enabled := False;
    WizardForm.GroupBrowseButton.Enabled := False;
  end else begin
    WizardForm.GroupEdit.Enabled := True;
    WizardForm.GroupBrowseButton.Enabled := True;
  end;
end;

Then checks for Icons

[Icons]
Name: "{group}\{#AppName}"; Filename: "{app}\{#AppExec}"; Check: CreateIcons
Name: "{commondesktop}\{#AppName}"; Filename: "{app}\{#AppExec}"; Check: CreateIcons

After this you have to place it in WizardForm like this

procedure InitializeWizard();
begin

StartMenuIcons := TNewCheckBox.Create(WizardForm);
  with StartMenuIcons do begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(8);
    Top := ScaleY(150);
    Width := ScaleX(240);
    Height := ScaleY(17);
    Caption := 'Create Start menu icons';
    OnClick := @StartMenuIconsClick; //Which action should be performed when OnClick (=clicked)
  end;

  DesktopIconCheckBox := TNewCheckBox.Create(WizardForm);
  with DesktopIconCheckBox do begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(8);
    Top := ScaleY(170);
    Width := ScaleX(240);
    Height := ScaleY(17);
    Caption := 'Create Desktop icon';
  end;

end;

For left/top/width/height you can also use SetBounds(Left, Top, Width, Height);.

[ZakirAhmad]

Originally Posted by KaktoR

What you mean with "win dir part" ?

For icons create first variables then functions and procedures

Example:

var
StartMenuIcons, DesktopIconCheckBox: TNewCheckBox;


function CreateIcons: Boolean;
begin
  Result := DesktopIconCheckBox.Checked;
end;

procedure StartMenuIconsClick(Sender: TObject);
begin
  if StartMenuIcons.Checked = True then begin
    WizardForm.GroupEdit.Enabled := False;
    WizardForm.GroupBrowseButton.Enabled := False;
  end else begin
    WizardForm.GroupEdit.Enabled := True;
    WizardForm.GroupBrowseButton.Enabled := True;
  end;
end;

Then checks for Icons

[Icons]
Name: "{group}\{#AppName}"; Filename: "{app}\{#AppExec}"; Check: CreateIcons
Name: "{commondesktop}\{#AppName}"; Filename: "{app}\{#AppExec}"; Check: CreateIcons

After this you have to place it in WizardForm like this

procedure InitializeWizard();
begin

StartMenuIcons := TNewCheckBox.Create(WizardForm);
  with StartMenuIcons do begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(8);
    Top := ScaleY(150);
    Width := ScaleX(240);
    Height := ScaleY(17);
    Caption := 'Create Start menu icons';
    OnClick := @StartMenuIconsClick; //Which action should be performed when OnClick (=clicked)
  end;

  DesktopIconCheckBox := TNewCheckBox.Create(WizardForm);
  with DesktopIconCheckBox do begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(8);
    Top := ScaleY(170);
    Width := ScaleX(240);
    Height := ScaleY(17);
    Caption := 'Create Desktop icon';
  end;

end;

For left/top/width/height you can also use SetBounds(Left, Top, Width, Height);.

sorry bro SelectDirPage.

Bro i also want to change srepinit virtual memory to percentage value. but the cls.ini is overwritten by srepinit function of of isdone. Please help me here.
i also how can i add in info page of setup like FItgirl.

thanks

[KaktoR]

Try something like this

SaveStringToFile(ExpandConstant('{tmp}\cls.ini'), '[Srep]'+#13#10+'Memory=75%'+#13#10+'TempPath='+ExpandConstant('{app}'), True);

[ZakirAhmad]

Originally Posted by KaktoR

Try something like this

SaveStringToFile(ExpandConstant('{tmp}\cls.ini'), '[Srep]'+#13#10+'Memory=75%'+#13#10+'TempPath='+ExpandConstant('{app}'), True);

where can i write this bro.

[KaktoR]

#ifdef srep2
  ExtractTemporaryFile('cls-srep.dll');
  ExtractTemporaryFile('CLS.ini');
  SaveStringToFile(ExpandConstant('{tmp}\CLS.ini'), '[Srep]'+#13#10+'Memory=75%'+#13#10+'TempPath='+ExpandConstant('{app}'), True);
#endif

[ZakirAhmad]

Thanks bro, I will try it. One last thing. How can i Format text like FItgirl in infobefore page of inno setup.

[KaktoR]

Use .rtf file

[Setup]
InfoBeforeFile=Info.rtf

[ZakirAhmad]

i added SaveStringToFile function to script but their r now two entries of srep in script. one of srepinit function another of savestring to function.