#pragma comment(linker,"/MERGE:.rdata=.data")
#pragma comment(linker, "/MERGE:.text=.data" )
#pragma comment(linker,"/SECTION:.text,EWR")
#pragma comment(linker,"/ENTRY:Garik_WinMain")
#pragma comment(linker,"/NODEFAULTLIB") 
#pragma comment(linker, "/SUBSYSTEM:WINDOWS" )
#pragma comment(linker, "/INCREMENTAL:NO" )
#pragma optimize( "gsy", on )

#include <windows.h>

int WINAPI WinMains (HINSTANCE hInstance,int nShowCmd);
LRESULT CALLBACK GarikWinProc (HWND,UINT,UINT,LONG);


void Garik_WinMain()
{
ExitProcess(WinMains(GetModuleHandle(NULL),SW_SHOWDEFAULT));
}

int WINAPI WinMains (HINSTANCE hInstance,int nShowCmd)
{
WNDCLASS WndClass;
HWND hWnd;
MSG Msg;
char szClassName[]="Garik class";

WndClass.style=CS_HREDRAW | CS_VREDRAW;
WndClass.lpfnWndProc=GarikWinProc;
WndClass.cbClsExtra=0;
WndClass.cbWndExtra=0;
WndClass.hInstance=hInstance;
WndClass.hIcon=LoadIcon(NULL,IDI_WINLOGO);
WndClass.hCursor=LoadCursor(NULL,IDC_ARROW);
WndClass.hbrBackground=(HBRUSH)(COLOR_BACKGROUND)+1;
WndClass.lpszMenuName=NULL;
WndClass.lpszClassName=szClassName;

	if(!RegisterClass(&WndClass)) {
		MessageBoxA(NULL,NULL,"RegisterClass",MB_OK|MB_ICONERROR);
		return 0;
	}

	hWnd=CreateWindowA(szClassName,"Gar|k :: Storage Info",WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU,
		CW_USEDEFAULT,CW_USEDEFAULT,
		250,85,
		NULL,NULL,
		hInstance,NULL);

	if(!hWnd) {
		MessageBoxA(NULL,NULL,"CreateWindow",MB_OK|MB_ICONERROR);
		return 0;
	}

	ShowWindow(hWnd,nShowCmd);
	UpdateWindow(hWnd);

	while(GetMessage(&Msg,NULL,0,0)) {
		TranslateMessage(&Msg);
		DispatchMessage(&Msg);
	}

	return (int)Msg.wParam;
}



LRESULT CALLBACK GarikWinProc(HWND hWnd,UINT Message, UINT wParam, LONG lParam)
{
	HDC hDC;
	PAINTSTRUCT PaintStruct;
	
	char buff[50];
	switch(Message) {

		case WM_KEYDOWN:
			wsprintf((LPSTR)&buff,"%d",wParam);
			MessageBox(hWnd,buff,NULL,MB_OK);
			return 0;

		

		case WM_PAINT: 
		hDC=BeginPaint(hWnd,&PaintStruct);
		EndPaint(hWnd,&PaintStruct);
		return 0;

		case WM_DESTROY: 
		PostQuitMessage(0);
		return 0;
	}

	return DefWindowProc(hWnd,Message,wParam,lParam);
}

    WM_KEYDOWN:
      begin
        if byte(WParam) in [87, 83, 65, 68] then
          SetWindowText(hForm, @(char(WParam)));
      end;