# Include <windows. h>
Lresult callback wndproc (hwnd, uint, wparam, lparam );
Int winapi winmain (hinstance, hinstance hprevinstance, pstr sz1_line, int icmdshow)
{
Tchar szappname [] = text ("simple window ");
Hwnd;
MSG;
wndclass;
wndclass. style = cs_hredraw | cs_vredraw;
wndclass. lpfnwndproc = wndproc;
wndclass. cbclsextra = 0;
wndclass. cbwndextra = 0;
wndclass. hinstance = hinstance;
wndclass. hicon = loadicon (null, idi_application);
wndclass. hcursor = loadcursor (null, idc_arrow);
wndclass. hbrbackground = (hbrush) getstockobject (white_brush);
wndclass. lpszmenuname = NULL;
wndclass. lpszclassname = szappname;
If (! Registerclass (& wndclass ))
{
MessageBox (null, text ("this program requires Windows NT! "),
Szappname, mb_iconerror );
Return 0;
}
Hwnd = createwindow (szappname, // window class name
Szappname, // window caption
Ws_overlappedwindow, // window style
Cw_usedefault, // initial X position
Cw_usedefault, // initial y position
Cw_usedefault, // initial X size
Cw_usedefault, // initial y size
Null, // parent window handle
Null, // Window menu handle
Hinstance, // program instance handle
Null); // creation Parameters
Showwindow (hwnd, icmdshow );
Updatewindow (hwnd );
While (getmessage (& MSG, null, 0, 0 ))
{
Translatemessage (& MSG );
Dispatchmessage (& MSG );
}
Return msg. wparam;
}
Lresult callback wndproc (hwnd, uint message, wparam, lparam)
{
Switch (Message)
{
Case wm_destroy:
Postquitmessage (0 );
Return 0;
}
Return defwindowproc (hwnd, message, wparam, lparam );
}