Holy fucking shit I don't want to work on this. Sibly, you son of a ...

2016-05-07 22:49:54 +02:00
parent b75ca4142c
commit aa22d21fb5
2577 changed files with 166501 additions and 194685 deletions
@@ -0,0 +1,80 @@
+
+#include <string>
+#include <windows.h>
+
+#include "checkdx.h"
+#include "checkie.h"
+
+using namespace std;
+
+static const char *dx_err=
+"You must have DirectX version 7 installed to run Blitz Basic.\n\n"
+"DirectX 7 is provided on the Blitz Basic CD in the DirectX7 folder.\n\n"
+"The latest version of DirectX is available from www.microsoft.com";
+
+static const char *ie_err=
+"You must have Internet Explorer version 4 installed to run Blitz Basic.\n\n"
+"Internet Explorer 5 is provided on the Blitz Basic CD in the IExplorer5 folder.\n\n"
+"The latest version of Internet Explorer is available from www.microsoft.com";
+
+static const char *bb_err=
+"Unable to run Blitz Basic";
+
+static const char *md_err=
+"Your desktop must be in high-colour mode to use Blitz Basic.\n\n"
+"You can change your display settings from the control panel."; 
+
+static string getAppDir(){
+	char buff[MAX_PATH];
+	if( GetModuleFileName( 0,buff,MAX_PATH ) ){
+		string t=buff;
+		int n=t.find_last_of( '\\' );
+		if( n!=string::npos ) t=t.substr( 0,n );
+		return t;
+	}
+	return "";
+}
+
+static void fail( const char *p ){
+	::MessageBox( 0,p,"Blitz Basic Error",MB_SETFOREGROUND|MB_TOPMOST|MB_ICONERROR );
+	ExitProcess(-1);
+}
+
+static int desktopDepth(){
+	HDC hdc=GetDC( GetDesktopWindow() );
+	return GetDeviceCaps( hdc,BITSPIXEL );
+}
+
+int _stdcall WinMain( HINSTANCE inst,HINSTANCE prev,char *cmd,int show ){
+
+	if( desktopDepth()<16 ) fail( md_err );
+
+#ifndef PLUS
+	if( getDXVersion()<7 ) fail( dx_err );
+#endif
+
+	if( getIEVersion()<4 ) fail( ie_err );
+
+	//Ugly hack to get application dir...
+	string blitzIdePath=getAppDir();
+	_putenv( ("blitzpath="+blitzIdePath).c_str() );
+	SetCurrentDirectory( blitzIdePath.c_str() );
+	blitzIdePath=blitzIdePath+"\\bin\\ide.exe "+cmd;
+
+    STARTUPINFO si;
+    PROCESS_INFORMATION pi;
+    ZeroMemory(&si,sizeof(si));si.cb=sizeof(si);
+	if( !CreateProcess( 0,(char*)blitzIdePath.c_str(),0,0,0,0,0,0,&si,&pi ) ){
+		::MessageBox( 0,bb_err,"Blitz Basic Error",MB_SETFOREGROUND|MB_TOPMOST|MB_ICONERROR );
+		ExitProcess(-1);
+	}
+
+	//wait for BB to start
+	WaitForInputIdle( pi.hProcess,INFINITE );
+
+    // Close process and thread handles. 
+    CloseHandle( pi.hProcess );
+    CloseHandle( pi.hThread );
+
+	return 0;
+}