#16
|
||||
|
||||
Quote:
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
__________________
≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ « I Mediocri Imitano, I Geni Copiano, Dio Crea & Distrugge » (Io Ridefinisco & Perfeziono le Loro Opere Rendendole Uniche) ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ « Mediocrities Imitate, Genius Copy, God Creates & Destroys » (I Reconsider & Improve Their Works, Rending Them One And Only) Last edited by felice2011; 14-04-2017 at 09:31. |
Sponsored Links |
#17
|
|||
|
|||
Quote:
1.jpg |
#18
|
|||
|
|||
Thanks it's working .
Can u tell me how to add Exit button? Last edited by bairagyakushal4; 15-04-2017 at 03:48. |
#19
|
||||
|
||||
Quote:
__________________
≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ « I Mediocri Imitano, I Geni Copiano, Dio Crea & Distrugge » (Io Ridefinisco & Perfeziono le Loro Opere Rendendole Uniche) ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ « Mediocrities Imitate, Genius Copy, God Creates & Destroys » (I Reconsider & Improve Their Works, Rending Them One And Only) |
#20
|
|||
|
|||
can u tell me how ? i am very new to visual studio.
|
#21
|
||||
|
||||
aeh..buonanotteee..
__________________
≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ « I Mediocri Imitano, I Geni Copiano, Dio Crea & Distrugge » (Io Ridefinisco & Perfeziono le Loro Opere Rendendole Uniche) ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ « Mediocrities Imitate, Genius Copy, God Creates & Destroys » (I Reconsider & Improve Their Works, Rending Them One And Only) |
The Following User Says Thank You to felice2011 For This Useful Post: | ||
knife16 (15-04-2017) |
#22
|
|||
|
|||
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; |
The Following User Says Thank You to vint56 For This Useful Post: | ||
bairagyakushal4 (15-04-2017) |
#23
|
|||
|
|||
Thanks code now works but same problem "could not load game data".
|
#24
|
|||
|
|||
Quote:
Thanks for the launcher.U r great. |
#25
|
||||
|
||||
Quote:
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 Mediocri Imitano, I Geni Copiano, Dio Crea & Distrugge » (Io Ridefinisco & Perfeziono le Loro Opere Rendendole Uniche) ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ « Mediocrities Imitate, Genius Copy, God Creates & Destroys » (I Reconsider & Improve Their Works, Rending Them One And Only) |
#26
|
|||
|
|||
Quote:
|
#27
|
||||
|
||||
Or you can just use
https://www.indigorose.com/autoplay-media-studio/ |
#28
|
|||
|
|||
Quote:
|
#29
|
||||
|
||||
Only here, you can find things for free....
__________________
≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ « I Mediocri Imitano, I Geni Copiano, Dio Crea & Distrugge » (Io Ridefinisco & Perfeziono le Loro Opere Rendendole Uniche) ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ « Mediocrities Imitate, Genius Copy, God Creates & Destroys » (I Reconsider & Improve Their Works, Rending Them One And Only) |
The Following User Says Thank You to felice2011 For This Useful Post: | ||
knife16 (18-04-2017) |
#30
|
|||
|
|||
Tags |
code, game, luncher |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Creating a Memory Card Exploit | Ne0 | PS2 Games | 0 | 08-07-2009 22:24 |
Problem creating KOTOR 2 ISO | congee_33 | XBox Games | 10 | 03-10-2005 02:04 |
Creating a sega server for playing PSO online ? | OrG | DC Games | 1 | 14-02-2004 11:02 |
Creating ISO | wildennis | XBox Games | 12 | 09-02-2004 06:27 |
Creating VCD's using NERO | Nitram | CD/DVD Software & Utilities | 0 | 09-01-2003 09:07 |