Go Back   FileForums > Game Backup > PC Games > PC Games - CD/DVD Conversions > Conversion Tutorials

Reply
 
Thread Tools Display Modes
  #1  
Old 24-02-2018, 09:13
jitender jitender is offline
Registered User
 
Join Date: Feb 2018
Location: USA
Posts: 13
Thanks: 3
Thanked 1 Time in 1 Post
jitender is on a distinguished road
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:
Reply With Quote
Sponsored Links
  #2  
Old 24-02-2018, 09:23
KaktoR's Avatar
KaktoR KaktoR is offline
Lame User
 
Join Date: Jan 2012
Location: From outer space
Posts: 3,612
Thanks: 951
Thanked 5,896 Times in 2,180 Posts
KaktoR is on a distinguished road
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;
__________________
Haters gonna hate
Reply With Quote
  #3  
Old 24-02-2018, 09:30
jitender jitender is offline
Registered User
 
Join Date: Feb 2018
Location: USA
Posts: 13
Thanks: 3
Thanked 1 Time in 1 Post
jitender is on a distinguished road
Quote:
Originally Posted by KaktoR View Post
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
Reply With Quote
  #4  
Old 24-02-2018, 09:51
pakrat2k2's Avatar
pakrat2k2 pakrat2k2 is offline
Moderator
 
Join Date: Apr 2005
Location: Canada
Posts: 7,210
Thanks: 3,040
Thanked 8,984 Times in 3,083 Posts
pakrat2k2 is on a distinguished road
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.
Reply With Quote
  #5  
Old 24-02-2018, 09:53
jitender jitender is offline
Registered User
 
Join Date: Feb 2018
Location: USA
Posts: 13
Thanks: 3
Thanked 1 Time in 1 Post
jitender is on a distinguished road
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?

Last edited by jitender; 24-02-2018 at 09:55.
Reply With Quote
  #6  
Old 24-02-2018, 10:24
jitender jitender is offline
Registered User
 
Join Date: Feb 2018
Location: USA
Posts: 13
Thanks: 3
Thanked 1 Time in 1 Post
jitender is on a distinguished road
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.
Reply With Quote
  #7  
Old 24-02-2018, 11:56
KaktoR's Avatar
KaktoR KaktoR is offline
Lame User
 
Join Date: Jan 2012
Location: From outer space
Posts: 3,612
Thanks: 951
Thanked 5,896 Times in 2,180 Posts
KaktoR is on a distinguished road
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 '[email protected]:isgsg.dll stdcall delayload';

procedure InitializeWizard();
  ExtractTemporaryFile('Splash.png');
  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}\Splash.png'), 1000, 1000, 1000, 0, 255, True, $FFFFFF, 10);
Attached Files
File Type: rar isgsg.rar (31.3 KB, 19 views)
__________________
Haters gonna hate
Reply With Quote
The Following User Says Thank You to KaktoR For This Useful Post:
jitender (24-02-2018)
  #8  
Old 24-02-2018, 13:04
jitender jitender is offline
Registered User
 
Join Date: Feb 2018
Location: USA
Posts: 13
Thanks: 3
Thanked 1 Time in 1 Post
jitender is on a distinguished road
Quote:
Originally Posted by KaktoR View Post
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 '[email protected]: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:


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!
Reply With Quote
  #9  
Old 25-02-2018, 01:00
jitender jitender is offline
Registered User
 
Join Date: Feb 2018
Location: USA
Posts: 13
Thanks: 3
Thanked 1 Time in 1 Post
jitender is on a distinguished road
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'.
Reply With Quote
  #10  
Old 25-02-2018, 02:48
KaktoR's Avatar
KaktoR KaktoR is offline
Lame User
 
Join Date: Jan 2012
Location: From outer space
Posts: 3,612
Thanks: 951
Thanked 5,896 Times in 2,180 Posts
KaktoR is on a distinguished road
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 '[email protected]: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;
__________________
Haters gonna hate
Reply With Quote
  #11  
Old 25-02-2018, 07:25
jitender jitender is offline
Registered User
 
Join Date: Feb 2018
Location: USA
Posts: 13
Thanks: 3
Thanked 1 Time in 1 Post
jitender is on a distinguished road
Quote:
Originally Posted by KaktoR View Post
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 '[email protected]: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:

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.
Reply With Quote
  #12  
Old 26-02-2018, 07:18
STB13's Avatar
STB13 STB13 is offline
Registered User
 
Join Date: Feb 2016
Location: Pakstan
Posts: 45
Thanks: 46
Thanked 142 Times in 29 Posts
STB13 is on a distinguished road
Quote:
Originally Posted by jitender View Post
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;
__________________
It's Exam Time. . .
Reply With Quote
  #13  
Old 26-02-2018, 09:34
jitender jitender is offline
Registered User
 
Join Date: Feb 2018
Location: USA
Posts: 13
Thanks: 3
Thanked 1 Time in 1 Post
jitender is on a distinguished road
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?
Attached Images
File Type: png 11.PNG (29.6 KB, 85 views)

Last edited by pakrat2k2; 26-02-2018 at 12:21.
Reply With Quote
  #14  
Old 26-02-2018, 11:55
pakrat2k2's Avatar
pakrat2k2 pakrat2k2 is offline
Moderator
 
Join Date: Apr 2005
Location: Canada
Posts: 7,210
Thanks: 3,040
Thanked 8,984 Times in 3,083 Posts
pakrat2k2 is on a distinguished road
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.
Attached Files
File Type: rar JiTender Script.rar (49.6 KB, 9 views)

Last edited by pakrat2k2; 26-02-2018 at 12:20.
Reply With Quote
  #15  
Old 26-02-2018, 12:44
KaktoR's Avatar
KaktoR KaktoR is offline
Lame User
 
Join Date: Jan 2012
Location: From outer space
Posts: 3,612
Thanks: 951
Thanked 5,896 Times in 2,180 Posts
KaktoR is on a distinguished road
Fixed
Attached Files
File Type: rar JiTender Script Fixed.rar (49.7 KB, 25 views)
__________________
Haters gonna hate
Reply With Quote
The Following 2 Users Say Thank You to KaktoR For This Useful Post:
jitender (04-03-2018), pakrat2k2 (26-02-2018)
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Ridge Racer Unbounded + innosetup installer clriboli PC Games - CD/DVD Conversions 2 31-01-2015 14:53
Fallout Nv Ultimate Edition 3xDVD9 to 2xDVD5 InnoSetup 1 LANGUAGE THADEADMAN2011 PC Games - CD/DVD Conversions 8 09-01-2015 20:41
Unarc innosetup gabrimor PC Games 7 08-12-2012 12:23



All times are GMT -7. The time now is 12:40.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2022, vBulletin Solutions Inc.
Copyright 2000-2020, FileForums @ https://fileforums.com