FileForums
Page 2 of 2 1 2
Show 40 post(s) from this thread on one page

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)

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 13:25.
Page 2 of 2 1 2
Show 40 post(s) from this thread on one page

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