随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

program Project1;

uses
  Windows, Messages;

{回调函数; 其中要处理的消息很多, 最好用 case 语句}
function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;
begin
  Result := 0;
  case msg of
    WM_DESTROY: PostQuitMessage(0); {收到 WM_DESTROY 后, 发送 WM_QUIT 消息指示退出}
  else
    {其他消息交 DefWindowProc 处理; DefWindowProc 会返回回调函数需要的返回值}
    Result := DefWindowProc(wnd, msg, wParam, lParam);
  end;
end;

{登记与注册窗口类的函数}
function RegMyWndClass: Boolean;
var
  MyWndClass: 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;

{主程序}
var
  hWnd: THandle;
  Msg : TMsg;
begin
  {调用登记与注册窗口的函数}
  if not RegMyWndClass then
  begin
    MessageBox(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 {如果窗口建立失败}
  begin
    MessageBox(0, '窗口建立失败!', '提示', MB_OK + MB_ICONERROR);
    Exit;
  end;

  {显示窗口与更新窗口}
  ShowWindow(hWnd, SW_SHOWNORMAL);
  UpdateWindow(hWnd);

  {消息循环; GetMessage 在收到 WM_QUIT 消息时会返回 False, 从而终止循环}
  while(GetMessage(Msg, 0, 0, 0)) do
  begin
    TranslateMessage(Msg); {需要对部分键盘消息的再处理}
    DispatchMessage(Msg);  {将消息发送给回调函数}
  end;
  Halt(Msg.wParam); {没有了消息循环程序自然会退出; 加上这句, 程序会根据退出码主动退出}
end.

posted on 2008-04-16 11:54  万一  阅读(...)  评论(...编辑  收藏