HWND hwnd, hRichEdit, hButton;
HANDLE hThread;
HFONT hFont;
DWORD ThreadId;
char LogFileName[MAX_PATH];
BOOLEAN bSilentMode, bBatchMode;

// procedure doing actual work
DWORD DoWork(void);

DWORD WINAPI ThreadWrapper(void *pArg) {
	DWORD dExitCode;
	dExitCode = DoWork();
	SendMessage(hButton, WM_SETTEXT, (WPARAM)NULL, (LPARAM)"Done");
	if (bBatchMode) SendMessage(hwnd, WM_CLOSE,  0 ,  0 );
	ExitThread(dExitCode);
}

// Window Procedure
LRESULT CALLBACK WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) {
    switch(msg) {
		case WM_COMMAND:
			if ((HANDLE)lParam==hButton) {
				PostQuitMessage( 0 );
			}
			break;

		case WM_SIZE:
			if ((wParam==SIZE_MAXIMIZED) || (wParam==SIZE_RESTORED)) {
				MoveWindow(hRichEdit,  1 ,  1 , LOWORD(lParam)- 2 , HIWORD(lParam)- 40 , TRUE);
				MoveWindow(hButton, LOWORD(lParam) -  105 , HIWORD(lParam) -  32 ,  100 ,  30 , TRUE);
			}
			break;

        case WM_CLOSE:
			DestroyWindow(hwnd);
			break;

        case WM_DESTROY:
			PostQuitMessage( 0 );
			break;

        default:
			return DefWindowProc(hwnd, msg, wParam, lParam);
    }
    return  0 ;
}

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow) {
    WNDCLASSEX wc;
	HINSTANCE hRE_Lib;
    MSG Msg;
	char sBuf[ 1024 ], *s;
    RECT rect;
	int i;

	bSilentMode=FALSE;
	bBatchMode=FALSE;
	LogFileName[ 0 ]= 0 ;

	for (s=lpCmdLine; *s; s++) {
		while(*s== 32 ) s++;
		if ((*s=='-') || (*s=='/')) {
			s++;
			switch(*s) {
			case 'q': s++;
				if ((*s== 32 ) || (*s== 0 )) {
					bSilentMode=TRUE;
				} else goto ShowHelp;
				break;
			case 'b': s++;
				if ((*s== 32 ) || (*s== 0 )) {
					bBatchMode=TRUE;
				} else goto ShowHelp;
				break;
			case 'o': while(*(++s)== 32 );
				i= 0 ;
				while(*s> 32 ) {
					LogFileName[i] = *s;
					s++; i++;
				}
				LogFileName[i] =  0 ;
				break;
			default:
			ShowHelp:
				MessageBox(NULL, "Usage: Program [flags]\n\n"
								"flags:\n"
								"\t-q\t\tsilent mode, no windows or mesasges\n"
								"\t-b\t\tbatch mode, close window on completion\n"
								"\t-o <file>\t\tlog output messages to file\n"
					, "Usage", MB_ICONEXCLAMATION | MB_OK);
				return  0 ;
			}
		}
	}

	if (bSilentMode) return (DoWork());

    //Step 1: Registering the Window Class
    wc.cbSize        = sizeof(WNDCLASSEX);
    wc.style         =  0 ;
    wc.lpfnWndProc   = WndProc;
    wc.cbClsExtra    =  0 ;
    wc.cbWndExtra    =  0 ;
    wc.hInstance     = hInstance;
    wc.hIcon         = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_PROJECTICON));
    wc.hCursor       = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground = (HBRUSH)(COLOR_WINDOW);
    wc.lpszMenuName  = NULL;
    wc.lpszClassName = g_szClassName;
    wc.hIconSm       = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_PROJECTICON));

	if(!RegisterClassEx(&wc)) {
		MessageBox(NULL, "Window Registration Failed!", "Error!", MB_ICONEXCLAMATION | MB_OK);
		return  0 ;
    }

    // Step 2: Creating the Window
    hwnd = CreateWindowEx(
        WS_EX_DLGMODALFRAME,
        g_szClassName,
        "Franchisee Report System: Sending",
        WS_OVERLAPPEDWINDOW,
        CW_USEDEFAULT, CW_USEDEFAULT,  600 ,  400 ,
        NULL, NULL, hInstance, NULL);
	
    if(hwnd == NULL) {
        MessageBox(NULL, "Window Creation Failed!", "Error!",
            MB_ICONEXCLAMATION | MB_OK);
        return  0 ;
    }


	// Crate and set default font
	hFont = CreateFont(- 11 ,  0 ,  0 ,  0 ,  0 ,
		FALSE, FALSE, FALSE, DEFAULT_CHARSET,
		OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY,
		DEFAULT_PITCH,
		(LPCTSTR)"Arial");
	if (hFont==NULL) {
        MessageBox(NULL, "Font Creation Failed!", "Error!",
            MB_ICONEXCLAMATION | MB_OK);
        return  0 ;
    }

	if (SearchPath(NULL, "RICHED32.DLL", NULL, sizeof(sBuf), sBuf, &s)> 0 ) {
		hRE_Lib = LoadLibrary("RICHED32");
	} else if(SearchPath(NULL, "RICHED21.DLL", NULL, sizeof(sBuf), sBuf, &s)> 0 ) {
		hRE_Lib = LoadLibrary("RICHED21");
	} else {
		hRE_Lib = NULL;
	}
	if (hRE_Lib == NULL) {
        MessageBox(NULL, "Can not find RichEdit library!", "Error!",
            MB_ICONEXCLAMATION | MB_OK);
        return  0 ;
	}

	hRichEdit = CreateWindowEx(
		WS_EX_CLIENTEDGE,
		"RICHEDIT", "",
		WS_CHILD | WS_VISIBLE | WS_HSCROLL | WS_VSCROLL |
			ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL | ES_AUTOHSCROLL | ES_READONLY | ES_WANTRETURN,
		 1 , 1 , 50 , 100 ,
		hwnd, NULL,
		(HINSTANCE) GetWindowLong(hwnd, GWL_HINSTANCE),
		NULL);
	
    if(hRichEdit == NULL) {
        MessageBox(NULL, "Rich Edit Creation Failed!", "Error!",
            MB_ICONEXCLAMATION | MB_OK);
        return  0 ;
    }
	SendMessage(hRichEdit, WM_SETFONT, (WPARAM)hFont, (LPARAM)TRUE);

	// create Abort/Done button
	hButton = CreateWindow("BUTTON", "Abort", 
		WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON | BS_CENTER | BS_VCENTER,
		 0 ,  0 ,  10 ,  10 , hwnd, NULL, hInstance, NULL);
    if(hButton == NULL) {
        MessageBox(NULL, "Button Creation Failed!", "Error!",
            MB_ICONEXCLAMATION | MB_OK);
        return  0 ;
    }
	SendMessage(hButton, WM_SETFONT, (WPARAM)hFont, (LPARAM)TRUE);



	// move objects (text window and button) acording to window size		
    GetClientRect(hwnd, &rect);
	MoveWindow(hRichEdit, rect.left +  1 , rect.top +  1 , 
				rect.right - rect.left -  2 , rect.bottom - rect.top -  40 , TRUE);
	MoveWindow(hButton, rect.right -  105 , rect.bottom -  32 ,  100 ,  30 , TRUE);


	// Show prepeared window
    ShowWindow(hwnd, nCmdShow);
    UpdateWindow(hwnd);


	// create actual process thread
	hThread = CreateThread(NULL,  0 , ThreadWrapper, NULL,  0 , &ThreadId);


    // Main Message Loop
    while(GetMessage(&Msg, NULL,  0 ,  0 ) >  0 )
    {
        TranslateMessage(&Msg);
        DispatchMessage(&Msg);
    }
    return Msg.wParam;
}

void Log(DWORD LogOptions, char *Format, ...) {
	va_list ap;
	char LogBuf[ 1024 ];
	CHARFORMAT chf;
	FILE *fpLog;

	va_start(ap, Format);
	vsprintf(LogBuf, Format, ap);
	va_end(ap);

	if (LogFileName[ 0 ]) {
		char TimeBuf[ 32 ];
		struct tm *TimeNow;
		time_t SecNow = time( 0 );
		TimeNow = localtime(&SecNow);
		fpLog = fopen(LogFileName, "a");
		if(fpLog == NULL) fpLog=stdout;
		strftime(TimeBuf, sizeof(TimeBuf), "%d %b %H:%M:%S ", TimeNow);
		fprintf(fpLog, TimeBuf);
		fprintf(fpLog, LogBuf);
		if(LogBuf[strlen(LogBuf)- 1 ] != '\n') fprintf(fpLog, "\n");
		fclose(fpLog);
	}

	if (!bSilentMode) {
		if (LogOptions) {
			chf.cbSize = sizeof(CHARFORMAT);
			chf.dwMask = ~ 0 ;
			SendMessage(hRichEdit, EM_GETCHARFORMAT, (WPARAM)SCF_DEFAULT, (LPARAM) &chf);
			chf.dwMask =  0 ;
			if (LogOptions & LOG_BOLD) {
				chf.dwMask |= CFM_BOLD;
				chf.dwEffects |= CFE_BOLD;
			}
			if (LogOptions & LOG_ITALIC) {
				chf.dwMask |= CFM_ITALIC;
				chf.dwEffects |= CFE_ITALIC;
			}
			if (LogOptions & LOG_RED) {
				chf.dwMask |= CFM_COLOR;
				chf.dwEffects &= ~CFE_AUTOCOLOR;
				chf.crTextColor = RGB( 255 ,  0 ,  0 );
			}
			if (LogOptions & LOG_GREEN) {
				chf.dwMask |= CFM_COLOR;
				chf.dwEffects &= ~CFE_AUTOCOLOR;
				chf.crTextColor = RGB( 0 ,  255 ,  0 );
			}
			if (LogOptions & LOG_SIZE) {
				chf.dwMask |= CFM_SIZE;
				chf.yHeight = (LogOptions&LOG_SIZE);
			}
			SendMessage(hRichEdit, EM_SETCHARFORMAT, (WPARAM)SCF_SELECTION, (LPARAM) &chf);

		}
		SendMessage(hRichEdit, EM_REPLACESEL, (WPARAM)FALSE, (LPARAM)LogBuf);
	}
}