1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:

program Project1;

uses
  K64Windows,
  K64Messages;

const
  ClassName = 'K64';
  AppName = 'Koshigaya Studios - 64k Demo';

var
  Handle: hWnd;
  Go: Array[0..255] of Boolean;
  WindowWidth: Integer = 1280;
  WindowHeight: Integer = 960;


function WndProc(hWnd: HWND; message: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  Result:=0;
  Case message of
    WM_CREATE: begin

    end;
    WM_DESTROY, WM_CLOSE: begin
      PostQuitMessage(0);
    end;
    WM_KEYDOWN: begin
      Go[wParam]:=true;
    end;
    WM_KEYUP: begin
      Go[wParam]:=false;
    end;
    WM_SIZE: begin

    end;
    else begin
      Result:=DefWindowProc(hWnd,message,wParam,lParam);
      exit;
    end;
  end;
end;

var
  wc: TWndClassEx = (
    cbSize          : SizeOf(TWndClassEx);
    Style           : CS_HREDRAW or CS_VREDRAW;
    lpfnWndProc     : @WndProc;
    cbClsExtra      : 0;
    cbWndExtra      : 0;
    hbrBackground   : COLOR_APPWORKSPACE;
    lpszMenuName    : nil;
    lpszClassName   : ClassName;
    hIconSm         : 0;
  );
  msg: TMSG;
  done: Boolean = false;
begin
  wc.hInstance  := hInstance;
  wc.hIcon      := LoadIcon(0,IDI_APPLICATION);
  wc.hCursor    := LoadCursor(0,IDC_ARROW);
  RegisterClassEx(wc);
  Handle:=CreateWindowEx(0,ClassName,AppName,WS_CAPTION or WS_VISIBLE or WS_SYSMENU or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SIZEBOX,Integer(CW_USEDEFAULT),Integer(CW_USEDEFAULT),WindowWidth,WindowHeight,0,0,hInstance,nil);
  ShowWindow(Handle,SW_MAXIMIZE);
  while not done do begin
    if (PeekMessage(msg,0,0,0,PM_REMOVE)) then begin
      if msg.message=WM_QUIT then begin
        done:=true;
      end else begin
        TranslateMessage(msg);
        DispatchMessage(msg);
      end;
    end;
  end;
end.