Creating a luncher

[bairagyakushal4]

I have a game which has 5 exe file in different folder. how to make a luncher or something so that i don't have to create 5 shortcut on desktop.So i can open the luncher and select the exe or name of the game to open .

Thank you

[78372]

Use autorun creator programs

[bairagyakushal4]

How to create autoran which can open 5 different exe file as user choice?

[Viper645]

How to create autoran which can open 5 different exe file as user choice?

If you tell me the name of the game and give me other informations , I can create a launcher for you.

[bairagyakushal4]

ok the game is telltale games back to the future ,which has 5 exe in episode 1,episode 2,episode 3 etc folder:).
thanks

[pan3o]

These games does not run from single executable file like other episodic games from Telltale?

[bairagyakushal4]

These games does not run from single executable file like other episodic games from Telltale?

Yes this is the only game(from telltale) i have seen which has 5 different executable files other telltale games has 1 executable.

[Viper645]

I need the full name, executable names, folder names where the executables exists etc.

[bairagyakushal4]

I need the full name, executable names, folder names where the executables exists etc.

Ok The game name is "Back to the Future - The Game" ,
from telltale Games series.
There is 5 folder

Episode 1
Episode 2
Episode 3
Episode 4
Episode 5


inside {app}.

inside "Episode 1" folder there is "BackToTheFuture101.exe"
inside "Episode 2" folder there is "BackToTheFuture102.exe"
inside "Episode 3" folder there is "BackToTheFuture103.exe"
inside "Episode 4" folder there is "BackToTheFuture104.exe"
inside "Episode 5" folder there is "BackToTheFuture105.exe"


Thanks.

[78372]

-XCX- is not a banned user

[bairagyakushal4]

No one here?

[bairagyakushal4]

I wrote code myself but its not working, can't seem to fix the error, please help.(Visual Studio 2015)

18037

18038


Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If My.Computer.FileSystem.FileExists("G:\Back to the Future - The Game\Episode 1\BackToTheFuture101.exe") Then
Shell("G:\Back to the Future - The Game\Episode 1\BackToTheFuture101.exe")
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 1")
End If
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim intResponse As Integer

intResponse = MsgBox("Are you sure you want to " _
& "Exit?",
vbYesNo + vbQuestion + vbDefaultButton2,
"Exit?")

If intResponse = vbYes Then
Me.Close()
End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If My.Computer.FileSystem.FileExists("Episode 2\BackToTheFuture102.exe") Then
System.Diagnostics.Process.Start("Episode 2\BackToTheFuture102.exe")
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 2")
End If
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If My.Computer.FileSystem.FileExists("Episode 3\BackToTheFuture103.exe") Then
System.Diagnostics.Process.Start("Episode 3\BackToTheFuture103.exe")
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 3")
End If
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If My.Computer.FileSystem.FileExists("Episode 4\BackToTheFuture104.exe") Then
System.Diagnostics.Process.Start("Episode 4\BackToTheFuture104.exe")
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 4")
End If
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If My.Computer.FileSystem.FileExists("Episode 5\BackToTheFuture105.exe") Then
System.Diagnostics.Process.Start("Episode 5\BackToTheFuture105.exe")
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 5")
End If
End Sub
End Class

[bairagyakushal4]

Tried using full path /short path till nothing

[vint56]

bairagyakushal4
Inno Setup Compiler

[bairagyakushal4]

bairagyakushal4
Inno Setup Compiler

I am on mobile will check later.
Thanks

[felice2011]

I wrote code myself but its not working, can't seem to fix the error, please help.(Visual Studio 2015)

18037

18038


Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If My.Computer.FileSystem.FileExists("G:\Back to the Future - The Game\Episode 1\BackToTheFuture101.exe") Then
Shell("G:\Back to the Future - The Game\Episode 1\BackToTheFuture101.exe")
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 1")
End If
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim intResponse As Integer

intResponse = MsgBox("Are you sure you want to " _
& "Exit?",
vbYesNo + vbQuestion + vbDefaultButton2,
"Exit?")

If intResponse = vbYes Then
Me.Close()
End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If My.Computer.FileSystem.FileExists("Episode 2\BackToTheFuture102.exe") Then
System.Diagnostics.Process.Start("Episode 2\BackToTheFuture102.exe")
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 2")
End If
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If My.Computer.FileSystem.FileExists("Episode 3\BackToTheFuture103.exe") Then
System.Diagnostics.Process.Start("Episode 3\BackToTheFuture103.exe")
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 3")
End If
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If My.Computer.FileSystem.FileExists("Episode 4\BackToTheFuture104.exe") Then
System.Diagnostics.Process.Start("Episode 4\BackToTheFuture104.exe")
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 4")
End If
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If My.Computer.FileSystem.FileExists("Episode 5\BackToTheFuture105.exe") Then
System.Diagnostics.Process.Start("Episode 5\BackToTheFuture105.exe")
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 5")
End If
End Sub
End Class



Try this way ...


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

If File.Exists(Application.StartupPath & "\inside episode 2\My_Install_II.exe") Then
Dim _Exe As Process
Dim My_exe As New ProcessStartInfo(Path.Combine(Directory.GetParent( Application.ExecutablePath).FullName, "inside episode 2\My_Install_II.exe"))
My_exe.WorkingDirectory = Application.StartupPath
_Exe = Process.Start(My_exe)
_Exe.WaitForExit()
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 2")
End If

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

If My.Computer.FileSystem.FileExists(Application.Star tupPath & "\inside episode 3\My_Install_III.exe") Then
Process.Start(Path.Combine(Directory.GetParent(App lication.ExecutablePath).FullName, "inside episode 3\My_Install_III.exe"))
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 3")
End If

End Sub


;)

[bairagyakushal4]

Try this way ...


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

If File.Exists(Application.StartupPath & "\inside episode 2\My_Install_II.exe") Then
Dim _Exe As Process
Dim My_exe As New ProcessStartInfo(Path.Combine(Directory.GetParent( Application.ExecutablePath).FullName, "inside episode 2\My_Install_II.exe"))
My_exe.WorkingDirectory = Application.StartupPath
_Exe = Process.Start(My_exe)
_Exe.WaitForExit()
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 2")
End If

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

If My.Computer.FileSystem.FileExists(Application.Star tupPath & "\inside episode 3\My_Install_III.exe") Then
Process.Start(Path.Combine(Directory.GetParent(App lication.ExecutablePath).FullName, "inside episode 3\My_Install_III.exe"))
Me.Close()
Else
MsgBox("File not found!!!", +vbExclamation, "Episode 3")
End If

End Sub


;)

Sorry but ur code showing error
18050

[bairagyakushal4]

bairagyakushal4
Inno Setup Compiler

Thanks it's working .
Can u tell me how to add Exit button?

[felice2011]

Sorry but ur code showing error
18050

Ehhh...Imports System.IO..:p

[bairagyakushal4]

Ehhh...Imports System.IO..:p

can u tell me how ? i am very new to visual studio.

[felice2011]

can u tell me how ? i am very new to visual studio.

aeh..buonanotteee..:eek:

https://i.imgsafe.org/1f76c75892.png

:rolleyes:

[vint56]

bairagyakushal4
#include "Modules\botva2.iss"
#define FormPic "form.png"
#define CloseBtnPic "closebtn.png"
#define GameExeOne "btn.png"


[Setup]
AppName=Luncher
AppVersion=1.5
CreateAppDir=no
OutputBaseFilename=Luncher
SetupIconFile=Files\icons.ico
VersionInfoDescription=Luncher for Back to the Future - The Game

[CustomMessages]
GameExeOne=Back to the Future - The Game Episode 1
GameExeTwo=Back to the Future - The Game Episode 2
GameExeThree=Back to the Future - The Game Episode 3
GameExeFour=Back to the Future - The Game Episode 4
GameExeFive=Back to the Future - The Game Episode 5
CloseButton=Exit

[Files]
Source: "Files\*"; Flags: dontcopy;

[code]

var
CloseButton,GameExeOne,GameExeTwo,GameExeThree,Gam eExeFour,GameExeFive: HWND;
Res: Integer;

function ReleaseCapture(): Longint; external '[email protected] stdcall';

function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll' )) then ExtractTemporaryFile('CallbackCtrl.dll');
Result:=True;
end;

procedure LabelOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(WizardForm.Handle,$0112,$F012,0)
end;

procedure CloseBtnClick(hBtn:HWND);
begin
WizardForm.Close;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:= false; Cancel:=False;
Cancel:= True;
end;

procedure GameExeOneBtnClick(hBtn:HWND);
begin
if not FileExists(ExpandConstant('{src}\inside episode 1\BackToTheFuture101.exe')) then
begin
MsgBox('Файл не найден!', mbError, MB_OK);
end else
Exec(ExpandConstant('{src}\inside episode 1\BackToTheFuture101.exe'), '', ExpandConstant('{src}\inside episode 1'), SW_SHOW, ewNoWait, Res);
WizardForm.Close;
end;


procedure GameExeTwoBtnClick(hBtn:HWND);
begin
if not FileExists(ExpandConstant('{src}\inside episode 2\BackToTheFuture102.exe')) then
begin
MsgBox('Файл не найден!', mbError, MB_OK);
end else
Exec(ExpandConstant('{src}\inside episode 2\BackToTheFuture102.exe'), '', ExpandConstant('{src}\inside episode 2'), SW_SHOW, ewNoWait, Res);
WizardForm.Close;
end;

procedure GameExeThreeBtnClick(hBtn:HWND);
begin
if not FileExists(ExpandConstant('{src}\inside episode 3\BackToTheFuture103.exe')) then
begin
MsgBox('Файл не найден!', mbError, MB_OK);
end else
Exec(ExpandConstant('{src}\inside episode 3\BackToTheFuture103.exe'), '', ExpandConstant('{src}\inside episode 3'), SW_SHOW, ewNoWait, Res);
WizardForm.Close;
end;

procedure GameExeFourBtnClick(hBtn:HWND);
begin
if not FileExists(ExpandConstant('{src}\inside episode 4\BackToTheFuture104.exe')) then
begin
MsgBox('Файл не найден!', mbError, MB_OK);
end else
Exec(ExpandConstant('{src}\inside episode 4\BackToTheFuture104.exe'), '', ExpandConstant('{src}\inside episode 4'), SW_SHOW, ewNoWait, Res);
WizardForm.Close;
end;

procedure GameExeFiveBtnClick(hBtn:HWND);
begin
if not FileExists(ExpandConstant('{src}\inside episode 5\BackToTheFuture105.exe')) then
begin
MsgBox('Файл не найден!', mbError, MB_OK);
end else
Exec(ExpandConstant('{src}\inside episode 5\BackToTheFuture105.exe'), '', ExpandConstant('{src}\inside episode 5'), SW_SHOW, ewNoWait, Res);
WizardForm.Close;
end;

procedure InitializeWizard();
begin
WizardForm.Caption:='Luncher for Back to the Future - The Game';
ExtractTemporaryFile('{#FormPic}');
ExtractTemporaryFile('{#GameExeOne}');
with WizardForm do begin
BorderStyle:=bsNone;
Bevel.Hide;
InnerNotebook.Hide;
OuterNotebook.Hide;
Width:=ScaleX(580);
Height:=ScaleY(358);
Position:=poScreenCenter;
end;

ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}')+ '\{#FormPic}',0,0,0,0,False,True);

GameExeOne:= BtnCreate(WizardForm.Handle, ScaleX(270), ScaleY(50), ScaleX(278), ScaleY(30), ExpandConstant('{tmp}')+'\{#GameExeOne}',0, False);
BtnSetEvent(GameExeOne, BtnClickEventID, WrapBtnCallback(@GameExeOneBtnClick, 1));
BtnSetText(GameExeOne, ExpandConstant('{cm:GameExeOne}'));
BtnSetFontColor(GameExeOne, clWhite, clWhite, clWhite, clWhite);

GameExeTwo:= BtnCreate(WizardForm.Handle, ScaleX(270), ScaleY(90), ScaleX(278), ScaleY(30), ExpandConstant('{tmp}')+'\{#GameExeOne}',0, False);
BtnSetEvent(GameExeTwo, BtnClickEventID, WrapBtnCallback(@GameExeTwoBtnClick, 1));
BtnSetText(GameExeTwo, ExpandConstant('{cm:GameExeTwo}'));
BtnSetFontColor(GameExeTwo, clWhite, clWhite, clWhite, clWhite);

GameExeThree:= BtnCreate(WizardForm.Handle, ScaleX(270), ScaleY(130), ScaleX(278), ScaleY(30), ExpandConstant('{tmp}')+'\{#GameExeOne}',0, False);
BtnSetEvent(GameExeThree, BtnClickEventID, WrapBtnCallback(@GameExeThreeBtnClick, 1));
BtnSetText(GameExeThree, ExpandConstant('{cm:GameExeThree}'));
BtnSetFontColor(GameExeThree, clWhite, clWhite, clWhite, clWhite);

GameExeFour:= BtnCreate(WizardForm.Handle, ScaleX(270), ScaleY(170), ScaleX(278), ScaleY(30), ExpandConstant('{tmp}')+'\{#GameExeOne}',0, False);
BtnSetEvent(GameExeFour, BtnClickEventID, WrapBtnCallback(@GameExeFourBtnClick, 1));
BtnSetText(GameExeFour, ExpandConstant('{cm:GameExeFour}'));
BtnSetFontColor(GameExeFour, clWhite, clWhite, clWhite, clWhite);

GameExeFive:= BtnCreate(WizardForm.Handle, ScaleX(270), ScaleY(210), ScaleX(278), ScaleY(30), ExpandConstant('{tmp}')+'\{#GameExeOne}',0, False);
BtnSetEvent(GameExeFive, BtnClickEventID, WrapBtnCallback(@GameExeFiveBtnClick, 1));
BtnSetText(GameExeFive, ExpandConstant('{cm:GameExeFive}'));
BtnSetFontColor(GameExeFive, clWhite, clWhite, clWhite, clWhite);

CloseButton:= BtnCreate(WizardForm.Handle, ScaleX(270), ScaleY(250), ScaleX(278), ScaleY(30), ExpandConstant('{tmp}')+'\{#GameExeOne}',0, False);
BtnSetEvent(CloseButton, BtnClickEventID, WrapBtnCallback(@CloseBtnClick, 1));
BtnSetText(CloseButton, ExpandConstant('{cm:CloseButton}'));
BtnSetFontColor(CloseButton, clWhite, clWhite, clWhite, clWhite);

with WizardForm.CancelButton do
begin
Left := ScaleX(399);
Top := ScaleY(495);
end;
with WizardForm.NextButton do
begin
Left := ScaleX(301);
Top := ScaleY(495);
end;

with TLabel.Create(WizardForm) do begin
Parent:=WizardForm;
AutoSize:=False;
Top:=3;
Left:=0;
Width:=WizardForm.Width;
Alignment:=taCenter;
Transparent:=True;
Font.Color:=$EEEEEE;
Font.Style:=[fsBold];
Caption:=WizardForm.Caption;
OnMouseDown:=@LabelOnMouseDown;
end;

with TLabel.Create(WizardForm) do begin
Parent:=WizardForm;
AutoSize:=False;
Top:=0;
Left:=0;
Width:=WizardForm.Width;
Height:= WizardForm.Height
Transparent:=True;
OnMouseDown:=@LabelOnMouseDown;
end;
ImgApplyChanges(WizardForm.Handle);
end;

procedure DeinitializeSetup;
begin
gdipShutdown;
end;

[bairagyakushal4]

aeh..buonanotteee..:eek:

https://i.imgsafe.org/1f76c75892.png

:rolleyes:
Thanks code now works but same problem "could not load game data".

[bairagyakushal4]

bairagyakushal4
#include "Modules\botva2.iss"
#define FormPic "form.png"
#define CloseBtnPic "closebtn.png"
#define GameExeOne "btn.png"


[Setup]
AppName=Luncher
AppVersion=1.5
CreateAppDir=no
OutputBaseFilename=Luncher
SetupIconFile=Files\icons.ico
VersionInfoDescription=Luncher for Back to the Future - The Game

[CustomMessages]
GameExeOne=Back to the Future - The Game Episode 1
GameExeTwo=Back to the Future - The Game Episode 2
GameExeThree=Back to the Future - The Game Episode 3
GameExeFour=Back to the Future - The Game Episode 4
GameExeFive=Back to the Future - The Game Episode 5
CloseButton=Exit

[Files]
Source: "Files\*"; Flags: dontcopy;

[code]

var
CloseButton,GameExeOne,GameExeTwo,GameExeThree,Gam eExeFour,GameExeFive: HWND;
Res: Integer;

function ReleaseCapture(): Longint; external '[email protected] stdcall';

function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll' )) then ExtractTemporaryFile('CallbackCtrl.dll');
Result:=True;
end;

procedure LabelOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(WizardForm.Handle,$0112,$F012,0)
end;

procedure CloseBtnClick(hBtn:HWND);
begin
WizardForm.Close;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:= false; Cancel:=False;
Cancel:= True;
end;

procedure GameExeOneBtnClick(hBtn:HWND);
begin
if not FileExists(ExpandConstant('{src}\inside episode 1\BackToTheFuture101.exe')) then
begin
MsgBox('Файл не найден!', mbError, MB_OK);
end else
Exec(ExpandConstant('{src}\inside episode 1\BackToTheFuture101.exe'), '', ExpandConstant('{src}\inside episode 1'), SW_SHOW, ewNoWait, Res);
WizardForm.Close;
end;


procedure GameExeTwoBtnClick(hBtn:HWND);
begin
if not FileExists(ExpandConstant('{src}\inside episode 2\BackToTheFuture102.exe')) then
begin
MsgBox('Файл не найден!', mbError, MB_OK);
end else
Exec(ExpandConstant('{src}\inside episode 2\BackToTheFuture102.exe'), '', ExpandConstant('{src}\inside episode 2'), SW_SHOW, ewNoWait, Res);
WizardForm.Close;
end;

procedure GameExeThreeBtnClick(hBtn:HWND);
begin
if not FileExists(ExpandConstant('{src}\inside episode 3\BackToTheFuture103.exe')) then
begin
MsgBox('Файл не найден!', mbError, MB_OK);
end else
Exec(ExpandConstant('{src}\inside episode 3\BackToTheFuture103.exe'), '', ExpandConstant('{src}\inside episode 3'), SW_SHOW, ewNoWait, Res);
WizardForm.Close;
end;

procedure GameExeFourBtnClick(hBtn:HWND);
begin
if not FileExists(ExpandConstant('{src}\inside episode 4\BackToTheFuture104.exe')) then
begin
MsgBox('Файл не найден!', mbError, MB_OK);
end else
Exec(ExpandConstant('{src}\inside episode 4\BackToTheFuture104.exe'), '', ExpandConstant('{src}\inside episode 4'), SW_SHOW, ewNoWait, Res);
WizardForm.Close;
end;

procedure GameExeFiveBtnClick(hBtn:HWND);
begin
if not FileExists(ExpandConstant('{src}\inside episode 5\BackToTheFuture105.exe')) then
begin
MsgBox('Файл не найден!', mbError, MB_OK);
end else
Exec(ExpandConstant('{src}\inside episode 5\BackToTheFuture105.exe'), '', ExpandConstant('{src}\inside episode 5'), SW_SHOW, ewNoWait, Res);
WizardForm.Close;
end;

procedure InitializeWizard();
begin
WizardForm.Caption:='Luncher for Back to the Future - The Game';
ExtractTemporaryFile('{#FormPic}');
ExtractTemporaryFile('{#GameExeOne}');
with WizardForm do begin
BorderStyle:=bsNone;
Bevel.Hide;
InnerNotebook.Hide;
OuterNotebook.Hide;
Width:=ScaleX(580);
Height:=ScaleY(358);
Position:=poScreenCenter;
end;

ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}')+ '\{#FormPic}',0,0,0,0,False,True);

GameExeOne:= BtnCreate(WizardForm.Handle, ScaleX(270), ScaleY(50), ScaleX(278), ScaleY(30), ExpandConstant('{tmp}')+'\{#GameExeOne}',0, False);
BtnSetEvent(GameExeOne, BtnClickEventID, WrapBtnCallback(@GameExeOneBtnClick, 1));
BtnSetText(GameExeOne, ExpandConstant('{cm:GameExeOne}'));
BtnSetFontColor(GameExeOne, clWhite, clWhite, clWhite, clWhite);

GameExeTwo:= BtnCreate(WizardForm.Handle, ScaleX(270), ScaleY(90), ScaleX(278), ScaleY(30), ExpandConstant('{tmp}')+'\{#GameExeOne}',0, False);
BtnSetEvent(GameExeTwo, BtnClickEventID, WrapBtnCallback(@GameExeTwoBtnClick, 1));
BtnSetText(GameExeTwo, ExpandConstant('{cm:GameExeTwo}'));
BtnSetFontColor(GameExeTwo, clWhite, clWhite, clWhite, clWhite);

GameExeThree:= BtnCreate(WizardForm.Handle, ScaleX(270), ScaleY(130), ScaleX(278), ScaleY(30), ExpandConstant('{tmp}')+'\{#GameExeOne}',0, False);
BtnSetEvent(GameExeThree, BtnClickEventID, WrapBtnCallback(@GameExeThreeBtnClick, 1));
BtnSetText(GameExeThree, ExpandConstant('{cm:GameExeThree}'));
BtnSetFontColor(GameExeThree, clWhite, clWhite, clWhite, clWhite);

GameExeFour:= BtnCreate(WizardForm.Handle, ScaleX(270), ScaleY(170), ScaleX(278), ScaleY(30), ExpandConstant('{tmp}')+'\{#GameExeOne}',0, False);
BtnSetEvent(GameExeFour, BtnClickEventID, WrapBtnCallback(@GameExeFourBtnClick, 1));
BtnSetText(GameExeFour, ExpandConstant('{cm:GameExeFour}'));
BtnSetFontColor(GameExeFour, clWhite, clWhite, clWhite, clWhite);

GameExeFive:= BtnCreate(WizardForm.Handle, ScaleX(270), ScaleY(210), ScaleX(278), ScaleY(30), ExpandConstant('{tmp}')+'\{#GameExeOne}',0, False);
BtnSetEvent(GameExeFive, BtnClickEventID, WrapBtnCallback(@GameExeFiveBtnClick, 1));
BtnSetText(GameExeFive, ExpandConstant('{cm:GameExeFive}'));
BtnSetFontColor(GameExeFive, clWhite, clWhite, clWhite, clWhite);

CloseButton:= BtnCreate(WizardForm.Handle, ScaleX(270), ScaleY(250), ScaleX(278), ScaleY(30), ExpandConstant('{tmp}')+'\{#GameExeOne}',0, False);
BtnSetEvent(CloseButton, BtnClickEventID, WrapBtnCallback(@CloseBtnClick, 1));
BtnSetText(CloseButton, ExpandConstant('{cm:CloseButton}'));
BtnSetFontColor(CloseButton, clWhite, clWhite, clWhite, clWhite);

with WizardForm.CancelButton do
begin
Left := ScaleX(399);
Top := ScaleY(495);
end;
with WizardForm.NextButton do
begin
Left := ScaleX(301);
Top := ScaleY(495);
end;

with TLabel.Create(WizardForm) do begin
Parent:=WizardForm;
AutoSize:=False;
Top:=3;
Left:=0;
Width:=WizardForm.Width;
Alignment:=taCenter;
Transparent:=True;
Font.Color:=$EEEEEE;
Font.Style:=[fsBold];
Caption:=WizardForm.Caption;
OnMouseDown:=@LabelOnMouseDown;
end;

with TLabel.Create(WizardForm) do begin
Parent:=WizardForm;
AutoSize:=False;
Top:=0;
Left:=0;
Width:=WizardForm.Width;
Height:= WizardForm.Height
Transparent:=True;
OnMouseDown:=@LabelOnMouseDown;
end;
ImgApplyChanges(WizardForm.Handle);
end;

procedure DeinitializeSetup;
begin
gdipShutdown;
end;


Thanks for the launcher.U r great.

[felice2011]

Thanks code now works but same problem "could not load game data".

The code start the executable inside the folder, with the launch application outside of the folder, and works well, for the rest I do not know what you are combining.:rolleyes:
The first example waits for the executable to be closed, then the launcher closes, the second as the executable opens, simultaneously closes the launcher.;)

[bairagyakushal4]

The code start the executable inside the folder, with the launch application outside of the folder, and works well, for the rest I do not know what you are combining.:rolleyes:
The first example waits for the executable to be closed, then the launcher closes, the second as the executable opens, simultaneously closes the launcher.;)

I know, i tried with other application & it works(my code) but this game seem to throw the error.

[Razor12911]

Or you can just use
https://www.indigorose.com/autoplay-media-studio/

[bairagyakushal4]

Or you can just use
https://www.indigorose.com/autoplay-media-studio/

Thanks but it's not free!

[felice2011]

Thanks but it's not free!

Only here, you can find things for free....:rolleyes::cool::D

[bairagyakushal4]

only here, you can find things for free....:rolleyes::cool::d

😀😀😀😀😀😀