FileForums - How to add web url in innosetup?

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - How to add web url in innosetup? (https://fileforums.com/showthread.php?t=101502)

How to add web url in innosetup?

hello i am using istool to making setup.But i don't know how to add my web url at bottom left corner of my setup.Please help me.See image: https://s9.postimg.org/4y8doelnj/image.png

Code:

var

  URLText: TNewStaticText;



procedure URLTextClick(Sender: TObject);

var

  ErrorCode: Integer;

begin

  ShellExec('open', 'http://fileforums.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;



procedure InitializeWizard();

begin

  URLText := TNewStaticText.Create(WizardForm);

  with URLText do begin

    Parent := WizardForm;

    Left := ScaleX(5);

    Top := ScaleY(327);

    Width := ScaleX(156);

    Height := ScaleY(23);

    Caption := 'URL Text';

    OnClick := @URLTextClick;

  end;

end;

Quote:

Originally Posted by KaktoR (Post 468350)

Code:

var

  URLText: TNewStaticText;



procedure URLTextClick(Sender: TObject);

var

  ErrorCode: Integer;

begin

  ShellExec('open', 'http://fileforums.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;



procedure InitializeWizard();

begin

  URLText := TNewStaticText.Create(WizardForm);

  with URLText do begin

    Parent := WizardForm;

    Left := ScaleX(5);

    Top := ScaleY(327);

    Width := ScaleX(156);

    Height := ScaleY(23);

    Caption := 'URL Text';

    OnClick := @URLTextClick;

  end;

end;

thanks for reply really appericiate.But i don't know even a single line of coding.I have this script so please tell me where to insert this above code:

Code:

; Script generated by the Inno Setup Script Wizard.

; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!



#define MyAppName "My Program"

#define MyAppVersion "1.5"

#define MyAppPublisher "My Company, Inc."

#define MyAppURL "http://www.example.com/"

#define MyAppExeName "MyProg.exe"



[Setup]

; NOTE: The value of AppId uniquely identifies this application.

; Do not use the same AppId value in installers for other applications.

; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)

AppId={{0A3E478F-1CFB-4841-BAEE-90B5E62CF3D8}

AppName={#MyAppName}

AppVersion={#MyAppVersion}

;AppVerName={#MyAppName} {#MyAppVersion}

AppPublisher={#MyAppPublisher}

AppPublisherURL={#MyAppURL}

AppSupportURL={#MyAppURL}

AppUpdatesURL={#MyAppURL}

DefaultDirName={pf}\{#MyAppName}

DisableProgramGroupPage=yes

OutputDir=C:\Users\JS\Downloads

OutputBaseFilename=setup

Compression=lzma

SolidCompression=yes



[Languages]

Name: english; MessagesFile: compiler:Default.isl



[Tasks]

Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked



[Files]

Source: C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion

; NOTE: Don't use "Flags: ignoreversion" on any shared system files



[Icons]

Name: {commonprograms}\{#MyAppName}; Filename: {app}\{#MyAppExeName}

Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon



[Run]

Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}; Flags: nowait postinstall skipifsilent

after the [Run] section add [Code] then paste the lines KaktoR posted.

dont forget to change http://fileforums.com to what you want it to be.

Ok done thanks.And

-> what about that blue color how to add that?(at bottom in above image)

-> And how to add welcome splash screen?

how to insert the splash at the time of install?

Code:



#define MyAppName "My Program"

#define MyAppVersion "1.5"

#define MyAppPublisher "My Company, Inc."

#define MyAppURL "http://www.example.com/"

#define MyAppExeName "MyProg.exe"



[Setup]

; NOTE: The value of AppId uniquely identifies this application.

; Do not use the same AppId value in installers for other applications.

; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)

AppId={{AEB246C4-0FD6-4C59-8EEF-03944CDFDDA5}

AppName={#MyAppName}

AppVersion={#MyAppVersion}

;AppVerName={#MyAppName} {#MyAppVersion}

AppPublisher={#MyAppPublisher}

AppPublisherURL={#MyAppURL}

AppSupportURL={#MyAppURL}

AppUpdatesURL={#MyAppURL}

DefaultDirName={pf}\{#MyAppName}

DisableProgramGroupPage=yes

OutputDir=C:\Users\JS\Downloads

OutputBaseFilename=setup

Compression=lzma

SolidCompression=yes



[Languages]

Name: english; MessagesFile: compiler:Default.isl



[Tasks]

Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked



[Files]

Source: C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion

; NOTE: Don't use "Flags: ignoreversion" on any shared system files



[Icons]

Name: {commonprograms}\{#MyAppName}; Filename: {app}\{#MyAppExeName}

Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon



[Run]

Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}; Flags: nowait postinstall skipifsilent



var

  URLText: TNewStaticText;



procedure URLTextClick(Sender: TObject);

var

  ErrorCode: Integer;

begin

  ShellExec('open', 'http://fileforums.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;



procedure InitializeWizard();

begin

  URLText := TNewStaticText.Create(WizardForm);

  with URLText do begin

    Parent := WizardForm;

    Left := ScaleX(5);

    Top := ScaleY(327);

    Width := ScaleX(156);

    Height := ScaleY(23);

    Caption := 'URL Text';

    OnClick := @URLTextClick;

  end;

end;

I have above script now please tell me the code and where to insert the code.And what to edit in it if necessary.

I guess it's the background color for WizardForm.

Try to change it using this
http://www.jrsoftware.org/ishelp/ind...etup_backcolor

For splash screen you can use isgsg.dll library (attachment)

How to use:
Add isgsg.dll to script (in [Files] section)
Add Splash.png to script (in [Files] section)

Code:

procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10 :integer);

    external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';



procedure InitializeWizard();

  ExtractTemporaryFile('Splash.png');

  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}\Splash.png'), 1000, 1000, 1000, 0, 255, True, $FFFFFF, 10);

Quote:

Originally Posted by KaktoR (Post 468361)

Code:

procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10 :integer);

    external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';



procedure InitializeWizard();

  ExtractTemporaryFile('Splash.png');

  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}\Splash.png'), 1000, 1000, 1000, 0, 255, True, $FFFFFF, 10);

Thanks again but as i told i don't know coding so please provide me full working script.
I tried adding splash script but it throwing me error.See this image:
https://s9.postimg.org/r802zwavz/image.png

And background color i checked but don't know where to and how to add in script please provide me full script with features(splash,and wizard background color) thank you!

I am able to run all things now but separately.How to add all these code together.When i try to add it throw me error 'duplicate identifier initialwizard'.

Like error says "duplicate", you have to merge InitializeWizard proceure

And make only one [Code] section, not two. You have to merge them too.

Code:

var

  URLText: TNewStaticText;





procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10 :integer);

    external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';





procedure URLTextClick(Sender: TObject);

var

  ErrorCode: Integer;

begin

  ShellExec('open', 'http://fileforums.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;





procedure InitializeWizard();



ExtractTemporaryFile('Splash.png');

  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}\Splash.png'), 1000, 1000, 1000, 0, 255, True, $FFFFFF, 10);



begin

  URLText := TNewStaticText.Create(WizardForm);

  with URLText do begin

    Parent := WizardForm;

    Left := ScaleX(5);

    Top := ScaleY(327);

    Width := ScaleX(156);

    Height := ScaleY(23);

    Caption := 'URL Text';

    OnClick := @URLTextClick;

  end;

end;

Quote:

Originally Posted by KaktoR (Post 468400)

Like error says "duplicate", you have to merge InitializeWizard proceure

And make only one [Code] section, not two. You have to merge them too.

Code:

var

  URLText: TNewStaticText;





procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10 :integer);

    external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';





procedure URLTextClick(Sender: TObject);

var

  ErrorCode: Integer;

begin

  ShellExec('open', 'http://fileforums.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;





procedure InitializeWizard();



ExtractTemporaryFile('Splash.png');

  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}\Splash.png'), 1000, 1000, 1000, 0, 255, True, $FFFFFF, 10);



begin

  URLText := TNewStaticText.Create(WizardForm);

  with URLText do begin

    Parent := WizardForm;

    Left := ScaleX(5);

    Top := ScaleY(327);

    Width := ScaleX(156);

    Height := ScaleY(23);

    Caption := 'URL Text';

    OnClick := @URLTextClick;

  end;

end;

Something you missed: https://s17.postimg.org/sqjbj97pb/aaa.png

Please give me a tested script which contain that background color for WizardForm(i asked above).Thanks it will save your and mine time please give me a tested one.

Quote:

Originally Posted by jitender (Post 468355)

Ok done thanks.And

-> what about that blue color how to add that?(at bottom in above image)

-> And how to add welcome splash screen?

For background Color,
procedure initializewizard();
begin
with wizardform do
begin
Color := clBlue;
end;
end;

I used "wizard forum desginer ' but i am not able to change text in text field.
See below image and tell me how to change field text?

Here's the script that partially works, splash shows properly, but the part STB13 mentioned is in the script, but doesnt seem to display it.

Quote:

Originally Posted by KaktoR (Post 468465)

Fixed

thanks now all fine.Only one thing left is how to create these two files from an installer :
1. unpacking portable.cmd
2. silent install.cmd

https://s9.postimg.org/5y57ebg1r/111.png

you can open both of those with notepad & see how they are written out.

jitender

Code:

[Setup]

AppName=My Application

AppVersion=1.5

DefaultDirName={code:GetInstallDir|{pf}\My Application}

DisableProgramGroupPage=yes

Uninstallable=not PortableCheck

OutputDir=.



[Files]

Source: "MyProg - installer.exe"; DestDir: "{app}"; Flags: ignoreversion; Check: InstallerCheck;

Source: "MyProg - portable.exe"; DestDir: "{app}"; Flags: ignoreversion; Check: PortableCheck;



[Icons]

Name: "{commondesktop}\My Application"; Filename: "{app}\MyProg - installer.exe"; Check: InstallerCheck;



This is CODE section add [] +Code

var

  Portable,Installer: TNewRadioButton;



function CheckParam(s: string): boolean;

var

  i: integer;

begin

for i := 0 to ParamCount do begin

  Result := ParamStr(i) = s;

if Result then Break;

end;

end;



function GetInstallDir(S: String): String;

begin

  if CheckParam('/P') then

    Result:= ExpandConstant('{userdesktop}\My Application Portable')

  else

    Result:= ExpandConstant(S);

end;



function PortableCheck: Boolean;

begin

  Result := Portable.Checked or CheckParam('/P');

end;



function InstallerCheck: Boolean;

begin

  Result := Installer.Checked or CheckParam('/I');

end;



procedure InitializeWizard();

begin

  WizardForm.DirEdit.Text:= ExpandConstant('{code:GetInstallDir|{pf}\My Application}');



  Portable := TNewRadioButton.Create(WizardForm);

  with Portable do

  begin

    Parent := WizardForm.SelectDirPage;

    Left := ScaleX(110);

    Top := ScaleY(175);

    Width := ScaleX(100);

    Height := ScaleY(17);

    Caption := 'Портативная';

    Checked := CheckParam('/P');

  end;



  Installer := TNewRadioButton.Create(WizardForm);

  with Installer do

  begin

    Parent := WizardForm.SelectDirPage;

    Left := ScaleX(0);

    Top := ScaleY(175);

    Width := ScaleX(100);

    Height := ScaleY(17);

    Caption := 'Стационарная';

    Checked := not CheckParam('/P');

  end;

end;



Portable

start /wait setup.exe /VERYSILENT /P 

Installer

start /wait setup.exe /VERYSILENT /I

I have this code:
http://fileforums.com/attachment.php...9&d=1519677850

Now please Download above script and modify it and give me final one which create portable + silent install also.( i don't know coding otherwise i had modified it)

jitender

Code:

#define MyAppName "My Program"

#define MyAppVersion "1.5"

#define MyAppPublisher "My Company, Inc."

#define MyAppURL "http://www.example.com/"

#define MyAppExeName "MyProg.exe"



[Setup]

; NOTE: The value of AppId uniquely identifies this application.

; Do not use the same AppId value in installers for other applications.

; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)

AppId={{AEB246C4-0FD6-4C59-8EEF-03944CDFDDA5}

AppName={#MyAppName}

AppVersion={#MyAppVersion}

;AppVerName={#MyAppName} {#MyAppVersion}

AppPublisher={#MyAppPublisher}

AppPublisherURL={#MyAppURL}

AppSupportURL={#MyAppURL}

AppUpdatesURL={#MyAppURL}

DefaultDirName={code:GetInstallDir|{pf}\My Application}

DisableProgramGroupPage=yes

Uninstallable=not PortableCheck

OutputDir=.

OutputBaseFilename=setup

Compression=none

SolidCompression=yes

BackColorDirection=lefttoright







[UninstallDelete]

Type: filesandordirs; Name: {app}



[Languages]

Name: english; MessagesFile: compiler:Default.isl



[Tasks]

Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked



[Files]

Source: Include\Splash.png; DestDir: {tmp}; Flags: dontcopy

Source: Include\isgsg.dll;  DestDir: {tmp}; Flags: dontcopy



Source: "MyProg - installer.exe"; DestDir: "{app}"; Flags: ignoreversion; Check: InstallerCheck;

Source: "MyProg - portable.exe"; DestDir: "{app}"; Flags: ignoreversion; Check: PortableCheck;





[Icons]

Name: {commonprograms}\{#MyAppName}; Filename: {app}\{#MyAppExeName}

Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon; Check: InstallerCheck;



[Run]

Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}; Flags: nowait postinstall skipifsilent



;Code section add [] to front of line.

var

  URLText: TNewStaticText;

  Portable,Installer: TNewRadioButton;



procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10 :integer);

external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';



procedure URLTextClick(Sender: TObject);

var

  ErrorCode: Integer;

begin

  ShellExec('open', 'http://fileforums.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;



function CheckParam(s: string): boolean;

var

i: integer;

begin

for i := 0 to ParamCount do begin

Result := ParamStr(i) = s;

if Result then Break;

end;

end;



function GetInstallDir(S: String): String;

begin

if CheckParam('/P') then

Result:= ExpandConstant('{userdesktop}\My Application Portable')

else

Result:= ExpandConstant(S);

end;



function PortableCheck: Boolean;

begin

Result := Portable.Checked or CheckParam('/P');

end;



function InstallerCheck: Boolean;

begin

Result := Installer.Checked or CheckParam('/I');

end;



procedure NewRadioButton1Click(Sender: TObject);

begin

  if Portable.Checked then

  WizardForm.DirEdit.Text:= ExpandConstant('{userdesktop}\My Application Portable')

  else

  WizardForm.DirEdit.Text:= ExpandConstant('{pf}\My Application');

end;



procedure InitializeWizard();

begin

  ExtractTemporaryFile('Splash.png');

  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}\Splash.png'), 1000, 1000, 1000, 0, 255, True, $FFFFFF, 10);



  with WizardForm do begin

    Color := $d78318;

  end;



  URLText := TNewStaticText.Create(WizardForm);

  with URLText do begin

    Parent := WizardForm;

    Left := ScaleX(10);

    Top := ScaleY(331);

    Width := ScaleX(156);

    Height := ScaleY(23);

    Caption := 'My Website';

    Cursor := crHand;

    Color := clWhite;

    Font.Style := [fsUnderline];

    Transparent := True;

    OnClick := @URLTextClick;

  end;



  Portable := TNewRadioButton.Create(WizardForm);

  with Portable do

  begin

    Parent := WizardForm.SelectDirPage;

    Left := ScaleX(110);

    Top := ScaleY(175);

    Width := ScaleX(100);

    Height := ScaleY(17);

    Caption := 'Портативная';

    Checked := CheckParam('/P');

    OnClick := @NewRadioButton1Click;

  end;



  Installer := TNewRadioButton.Create(WizardForm);

  with Installer do

  begin

    Parent := WizardForm.SelectDirPage;

    Left := ScaleX(0);

    Top := ScaleY(175);

    Width := ScaleX(100);

    Height := ScaleY(17);

    Caption := 'Стационарная';

    Checked := not CheckParam('/P');

    OnClick := @NewRadioButton1Click;

  end;

end;

Getting these question marks???
https://s17.postimg.org/9wqo7r4n3/aaal.png

DO NOT QUOTE ENTIRE MESSAGE, JUST REPLY

Portable := TNewRadioButton.Create(WizardForm);
with Portable do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(110);
Top := ScaleY(175);
Width := ScaleX(100);
Height := ScaleY(17);
Caption := 'Portable';
Checked := CheckParam('/P');
OnClick := @NewRadioButton1Click;
end;

Installer := TNewRadioButton.Create(WizardForm);
with Installer do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(175);
Width := ScaleX(100);
Height := ScaleY(17);
Caption := 'Installer';
Checked := not CheckParam('/P');
OnClick := @NewRadioButton1Click;
end;
end;

jitender + vint56 do NOT Quote messages ANY further, just reply to post.
useless to keep quoting previous messages.

So this script create two options in setup: 1)portable 2)silent install

So, it means if i select portable option then portable version of program will install or if i select silent then it will perform silent installation.Am i right?