FileForums

FileForums (https://fileforums.com/index.php)
-   Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)
-   -   Creating a luncher (https://fileforums.com/showthread.php?t=99074)

bairagyakushal4 30-03-2017 13:30
Creating a luncher
 
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 30-03-2017 20:34
Use autorun creator programs

bairagyakushal4 30-03-2017 20:57
How to create autoran which can open 5 different exe file as user choice?

Viper645 01-04-2017 00:41
Quote:
Originally Posted by bairagyakushal4 (Post 457561)
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 01-04-2017 00:59
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 01-04-2017 02:05
These games does not run from single executable file like other episodic games from Telltale?

bairagyakushal4 01-04-2017 03:37
Quote:
Originally Posted by pan3o (Post 457632)
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 01-04-2017 07:06
I need the full name, executable names, folder names where the executables exists etc.

bairagyakushal4 01-04-2017 08:41
Back to the Future - The Game
 
Quote:
Originally Posted by Viper645 (Post 457646)
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 01-04-2017 20:27
-XCX- is not a banned user

bairagyakushal4 11-04-2017 06:07
No one here?

bairagyakushal4 14-04-2017 06:45
2 Attachment(s)
I wrote code myself but its not working, can't seem to fix the error, please help.(Visual Studio 2015)

Attachment 18037

Attachment 18038


Code:
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 14-04-2017 06:47
Tried using full path /short path till nothing

vint56 14-04-2017 07:21
1 Attachment(s)
bairagyakushal4
Inno Setup Compiler

bairagyakushal4 14-04-2017 08:20
Quote:
Originally Posted by vint56 (Post 458069)
bairagyakushal4
Inno Setup Compiler
I am on mobile will check later.
Thanks

felice2011 14-04-2017 09:18
Quote:
Originally Posted by bairagyakushal4 (Post 458065)
I wrote code myself but its not working, can't seem to fix the error, please help.(Visual Studio 2015)

Attachment 18037

Attachment 18038


Code:
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 ...

Code:
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.StartupPath & "\inside episode 3\My_Install_III.exe") Then
            Process.Start(Path.Combine(Directory.GetParent(Application.ExecutablePath).FullName, "inside episode 3\My_Install_III.exe"))
            Me.Close()
        Else
            MsgBox("File not found!!!", +vbExclamation, "Episode 3")
        End If

    End Sub
;)

bairagyakushal4 15-04-2017 03:21
1 Attachment(s)
Quote:
Originally Posted by felice2011 (Post 458072)
Try this way ...

Code:
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.StartupPath & "\inside episode 3\My_Install_III.exe") Then
            Process.Start(Path.Combine(Directory.GetParent(Application.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
Attachment 18050

bairagyakushal4 15-04-2017 03:23
Quote:
Originally Posted by vint56 (Post 458069)
bairagyakushal4
Inno Setup Compiler
Thanks it's working .
Can u tell me how to add Exit button?

felice2011 15-04-2017 03:29
Quote:
Originally Posted by bairagyakushal4 (Post 458096)
Sorry but ur code showing error
Attachment 18050
Ehhh...Imports System.IO..:p

bairagyakushal4 15-04-2017 03:31
Quote:
Originally Posted by felice2011 (Post 458098)
Ehhh...Imports System.IO..:p
can u tell me how ? i am very new to visual studio.

felice2011 15-04-2017 03:37
Quote:
Originally Posted by bairagyakushal4 (Post 458100)
can u tell me how ? i am very new to visual studio.
aeh..buonanotteee..:eek:

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

:rolleyes:

vint56 15-04-2017 03:39
bairagyakushal4
#include "Modules\botva2.iss"
#define FormPic "form.png"
#define CloseBtnPic "closebtn.png"
#define GameExeOne "btn.png"

[code]
[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,GameExeFour,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 15-04-2017 03:47
Quote:
Originally Posted by felice2011 (Post 458101)
aeh..buonanotteee..:eek:

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

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

bairagyakushal4 15-04-2017 04:05
Quote:
Originally Posted by vint56 (Post 458102)
bairagyakushal4
#include "Modules\botva2.iss"
#define FormPic "form.png"
#define CloseBtnPic "closebtn.png"
#define GameExeOne "btn.png"

[code]
[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,GameExeFour,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 15-04-2017 04:59
Quote:
Originally Posted by bairagyakushal4 (Post 458103)
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 15-04-2017 05:08
Quote:
Originally Posted by felice2011 (Post 458106)
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 17-04-2017 18:32
Or you can just use
https://www.indigorose.com/autoplay-media-studio/

bairagyakushal4 17-04-2017 22:50
Quote:
Originally Posted by Razor12911 (Post 458170)
Thanks but it's not free!

felice2011 18-04-2017 01:00
Quote:
Originally Posted by bairagyakushal4 (Post 458177)
Thanks but it's not free!
Only here, you can find things for free....:rolleyes::cool::D

bairagyakushal4 18-04-2017 01:32
Quote:
Originally Posted by felice2011 (Post 458180)
only here, you can find things for free....:rolleyes::cool::d
😀😀😀😀😀😀


All times are GMT -7. The time now is 02:25.

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