#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;
}