program Project1;usesWindows, Messages;{回调函数; 其中要处理的消息很多, 最好用 case 语句}
function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;
beginResult := 0;case msg ofWM_DESTROY: PostQuitMessage(0); {收到 WM_DESTROY 后, 发送 WM_QUIT 消息指示退出}else{其他消息交 DefWindowProc 处理; DefWindowProc 会返回回调函数需要的返回值}Result := DefWindowProc(wnd, msg, wParam, lParam);end;
end;{登记与注册窗口类的函数}
function RegMyWndClass: Boolean;
varMyWndClass: TWndClass;
begin{指定窗口类型}MyWndClass.style         := CS_HREDRAW or CS_VREDRAW;  {改变大小时重绘}MyWndClass.lpfnWndProc   := @WndProc;                  {回调函数指针}MyWndClass.cbClsExtra    := 0;                         {没有额外的窗口类信息}MyWndClass.cbWndExtra    := 0;                         {没有额外的窗口信息}MyWndClass.hInstance     := HInstance;                 {程序实例句柄}MyWndClass.hIcon         := 0;                         {没指定图标}MyWndClass.hCursor       := LoadCursor(0, IDC_ARROW);  {选用了系统提供的指针}MyWndClass.hbrBackground := HBRUSH(COLOR_BTNFACE + 1); {背景色使用 Windows 默认的按钮颜色}MyWndClass.lpszMenuName  := nil;                       {不指定默认菜单}MyWndClass.lpszClassName := 'MyWindowClass';           {给窗口类型命名}Result := RegisterClass(MyWndClass) <> 0;              {注册窗口类型}
end;{主程序}
varhWnd: THandle;Msg : TMsg;
begin{调用登记与注册窗口的函数}if not RegMyWndClass thenbeginMessageBox(0, '窗口类注册失败!', '提示', MB_OK + MB_ICONERROR);Exit;end;{建立窗口并返回句柄; 既然有 CreateWindowEx 就不使用 CreateWindow 了}hWnd := CreateWindowEx(0,                      {不使用扩展风格}'MyWindowClass',        {窗口类型名}'新窗口',               {标题}WS_OVERLAPPEDWINDOW,    {窗口的常规样式}Integer(CW_USEDEFAULT), {默认水平位置}Integer(CW_USEDEFAULT), {默认垂直位置}Integer(CW_USEDEFAULT), {默认宽度}Integer(CW_USEDEFAULT), {默认高度}0,                      {无父窗口}0,                      {无主菜单}HInstance,              {实例句柄}nil                     {无附加信息});if hWnd = 0 then {如果窗口建立失败}beginMessageBox(0, '窗口建立失败!', '提示', MB_OK + MB_ICONERROR);Exit;end;{显示窗口与更新窗口}ShowWindow(hWnd, SW_SHOWNORMAL);UpdateWindow(hWnd);{消息循环; GetMessage 在收到 WM_QUIT 消息时会返回 False, 从而终止循环}while(GetMessage(Msg, 0, 0, 0)) dobeginTranslateMessage(Msg); {需要对部分键盘消息的再处理}DispatchMessage(Msg);  {将消息发送给回调函数}end;Halt(Msg.wParam); {没有了消息循环程序自然会退出; 加上这句, 程序会根据退出码主动退出}
end.