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

最新推荐文章于 2021-04-13 23:34:03 发布

Mr.乌鸦

最新推荐文章于 2021-04-13 23:34:03 发布

阅读量395

点赞数

分类专栏： Delphi 文章标签： Delphi Pascal

本文链接：https://blog.csdn.net/weixin_44300440/article/details/86775402

版权

博主分享了自己学习Win32程序设计的过程，通过参考《Delphi Win32核心API参考》一书，从新建文本文档，编写代码，到修改文件扩展名为.dpr，并使用Delphi编辑器打开，逐步实践创建窗口的操作。

摘要由CSDN通过智能技术生成

最近学习下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;