| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980 |
- #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 t=getAppDir();
- putenv( ("blitzpath="+t).c_str() );
- SetCurrentDirectory( t.c_str() );
- t=t+"\\bin\\ide.exe "+cmd;
- STARTUPINFO si;
- PROCESS_INFORMATION pi;
- ZeroMemory(&si,sizeof(si));si.cb=sizeof(si);
- if( !CreateProcess( 0,(char*)t.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;
- }
|