Win32程序设计(Delphi) -创建窗口

最近学习下win32程序设计
参考书 <<Delphi Win32核心API参考>>
新建 -> 文本文档.txt -> 写入代码 -> 修改文件名 -> 文本文档.dpr - > Delphi打开

program Win32Window;

uses  //引用文件
  Windows,
  Messages;
//消息回调函数

function WindowProc(MyWindow: HWND; MyMSG: Cardinal; wParam: WParam; lParam: LParam): LRESULT; stdcall; 
begin
  case MyMSG of
    WM_DESTROY:
      begin
        PostQuitMessage(0);
        Result := 0;
      end;
    WM_CLOSE:
      begin
        if MessageBox(0, '是否要退出?', '提示', MB_ICONQUESTION + MB_OKCANCEL) = IDOK then
          DestroyWindow(MyWindow)
        else
          Result := 0;
      end;

  end;
  //默认的窗口处理函数，把不关心的消息都丢给它来处理
  Result := DefWindowProc(MyWindow, MyMSG, wParam, lParam);
end;

//创建窗口类
var
  WC: TWndClass;
  theMSG: TMsg;
  theHWND: HWND;

begin
  WC.style := CS_HREDRAW or CS_VREDRAW;        //窗口样式
  WC.lpfnWndProc := @WindowProc;               //指向窗口过程的指针
  WC.cbClsExtra := 0;