diff --git a/installer/HL2Launch.dpr b/installer/HL2Launch.dpr index a50587a..f1befff 100644 --- a/installer/HL2Launch.dpr +++ b/installer/HL2Launch.dpr @@ -54,6 +54,10 @@ var eStream: TFileStream; i: integer; CheckSuccessful: Boolean; begin + WriteLn(FindWindow(nil, 'STEAM')); + readln; + exit; + ePath := ExtractFilePath(ParamStr(0)); for i := 1 to ParamCount do eParams := eParams + #32 + ParamStr(i); @@ -83,6 +87,12 @@ begin ReadLn; exit; end; + if not FileExists(Copy(ePath, 1, Pos('\SteamApps\', ePath)) + 'steam.exe') then begin + SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 12); + WriteLn('Error: Cannot find steam.exe! Make sure this application is located in your listen server''s directory.'); + ReadLn; + exit; + end; { Verify GameInfo.txt ... } Write('Verifying GameInfo.txt...'); if (FindFirst(ePath + '*.*', faDirectory, eSearchRec) = 0) then begin @@ -150,6 +160,10 @@ begin WriteLn('Warning: Couldn''t set GameInfo.txt to write-protected!'); eStream := nil; end; + { Launch Steam if not opened } + + ShellExecute(0, 'open', PChar(Copy(ePath, 1, Pos('\SteamApps\', ePath)) + 'steam.exe'), nil, PChar(Copy(ePath, 1, Pos('\SteamApps\', ePath))), SW_SHOW); + //ShellExecute(0, 'open', { Launch game } SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 7); Write('Starting HL2...'); diff --git a/installer/HL2Launch.exe b/installer/HL2Launch.exe index d8c6728..c5ec0bc 100644 Binary files a/installer/HL2Launch.exe and b/installer/HL2Launch.exe differ diff --git a/installer/MMS_Installer.exe b/installer/MMS_Installer.exe index 4f8ecca..4f92625 100644 Binary files a/installer/MMS_Installer.exe and b/installer/MMS_Installer.exe differ diff --git a/installer/UnitfrmMain.pas b/installer/UnitfrmMain.pas index 50b7de4..bd762f0 100644 --- a/installer/UnitfrmMain.pas +++ b/installer/UnitfrmMain.pas @@ -130,7 +130,7 @@ type var frmMain: TfrmMain; -const VERSION = '1.2'; +const VERSION = '1.2.1'; implementation