Delphi下用WindowsAPI创建窗体

转载 2004年09月10日 10:37:00
//   Delphi 下调用Windows API 创建窗体.       //
//  模板-------BY Hottey 2004-4-13-0:18       //
//  作者网站:http://asp.itdrp.com/hottey      // 
program delphi;

uses
  windows,
  messages;

const
  hellostr='Hello World!';

{$R delphi.res}


//窗口消息处理函数.
function MyWinProc(hWnd:THandle;uMsg:UINT;wParam,lParam:Cardinal):Cardinal;exp
ort;stdcall;

var 
  hdca,hdcb:THandle;         //设备描述表句柄.
  rect:TRect;                //矩形结构.
  font:HFont;
  ps:TPaintStruct;           //绘图结构.
begin
  result:=0;
  case uMsg of
    WM_PAINT:
      begin
        hdca:=BeginPaint(hWnd,ps);
        SetBkMode(hdca, Transparent);
        SetBkColor(hdca,GetBkColor(hdca));
        GetClientRect(hWnd,rect);      //获取窗口客户区的尺寸.
        DrawText(hdca,Pchar(hellostr),-1,rect,DT_SINGLELINE or DT_CENTER or DT
_VCENTER);
//      TextOut(hdc,100,40,hellostr,Length(hellostr));
        EndPaint(hWnd,ps);
      end;
    WM_CREATE:
      begin
        hdcb  := GetDC(hWnd);
        font  := CreateFont(45, 0, 0, 0, FW_normal, 0, 0, 0, ansi_charset, out
_default_precis, clip_default_precis,
        default_quality, 34, PChar('Arial'));
        SelectObject(hdcb, font);
        ReleaseDC(hWnd, hdcb);
      end;
    WM_DESTROY:
      PostQuitMessage(0)
    else
//使用缺省的窗口消息处理函数.
      result:=DefWindowProc(hWnd,uMsg,wParam,lParam);
    end;
end;

//主程序开始.

var
  Msg        :TMsg;          //消息结构.
  hWnd,hInst :THandle;       //Windows 窗口句柄.
  WinClass   :TWndClassEx;   //Windows 窗口类结构.
begin
  hInst:=GetModuleHandle(nil); // get the application instance
  WinClass.cbSize:=SizeOf(TWndClassEx);
  WinClass.lpszClassName:='MyWindow';         //类名.
  WinClass.style:=CS_HREDRAW or CS_VREDRAW or CS_OWNDC;
  WinClass.hInstance:=hInst;              //程序的实例句柄.
//设置窗口消息处理函数.
  WinClass.lpfnWndProc:=@MyWinProc;           //窗口过程.
  WinClass.cbClsExtra:=0;                     //以下两个域用于在类结构和Window
s内部保存的窗口结构
  WinClass.cbWndExtra:=0;                     //中预留一些额外空间.
  WinClass.hIcon:=LoadIcon(hInstance,MakeIntResource('MAINICON'));
  WinClass.hIconsm:=LoadIcon(hInstance,MakeIntResource('MAINICON'));
  WinClass.hCursor:=LoadCursor(0,IDC_Arrow);
//GetStockObject 获取一个图形对象,在这里是获取绘制窗口背景的刷子,返回一个白色刷
子的句柄.
  WinClass.hbrBackground:=HBRUSH(GetStockObject(white_Brush));
  WinClass.lpszMenuName:=nil;                 //指定窗口类菜单.

//向Windows 注册窗口类.
  if RegisterClassEx(WinClass)=0 then
  begin
    MessageBox(0,'Registeration Error!','SDK/API',MB_OK);
    Exit;
  end;

//建立窗口对象.
  hWnd:=CreateWindowEx(
                 WS_EX_OVERLAPPEDWINDOW,                 //扩展的窗口风格.
                 WinClass.lpszClassName,                 //类名.
                 'Hello Window',                         //窗口标题.
                 WS_OVERLAPPEDWINDOW,                    //窗口风格.
                 CW_USEDEFAULT,                          //窗口左上角相对于屏幕
左上角的初始位置x.
                 0,                                      //....右y.
                 CW_USEDEFAULT,                          //窗口宽度x.
                 0,                                      //窗口高度y.
                 0,                                      //父窗口句柄.
                 0,                                      //窗口菜单句柄.
                 hInst,                                  //程序实例句柄.
                 nil);                                   //创建参数指针.
  if hWnd<>0 then
     begin
       ShowWindow(hWnd,SW_SHOWNORMAL);        //显示窗口.
       UpdateWindow(hWnd);                    //指示窗口刷新自己.
       SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);

     end
  else
     MessageBox(0,'Window not Created!','SDK/API',MB_OK);

//主消息循环程序.  
  while GetMessage(Msg,0,0,0) do
  begin
    TranslateMessage(Msg);                   //转换某些键盘消息.
    DispatchMessage(Msg);                    //将消息发送给窗口过程.
  end;
end.

>其实Windows 编程是每个学写程序的人都要掌握的,学Delphi时也最好能先学习Windos编
程(最少要知道).以上代码虽说不如在Delphi中直接来个New->Form来的快,但它能告诉你本
质的东西.能让你更好的了解消息循环以及其他.而这些正是让New出来的窗体给掩盖的部分
.
>注:以上代码是我从Windows 程序设计上通过C++语法直译过来的(),测试后没有问题.若我
的注解有什么错误的地方,请各位指正!^_^
 
hottey 于2004-5-19
作者网站:http://asp.itdrp.com/hottey  (附例程)

Delphi使用Windows API 创建最基本的窗口程序Hello,Windows演示

program HelloWin; {$WARN SYMBOL_PLATFORM OFF} uses Windows,Messages; var WndClass:TWndClass; ...
  • MaxWoods
  • MaxWoods
  • 2012年12月12日 23:50
  • 3029

Delphi获取其它进程窗口句柄的3种方法

本文主要跟大家介绍Delphi中获取其它进程的窗口句柄,在Delphi中获取其它进程的窗口句柄,绝大部分人首先想到的会使用:FindWindow或者用GetWindow来遍历查找,如:handle :...
  • chinazhd
  • chinazhd
  • 2011年06月24日 20:25
  • 20202

Windows API 编程之创建一个windows窗口

windows API函数 创建一个windows窗口
  • IT_li_wenshun
  • IT_li_wenshun
  • 2016年10月08日 21:04
  • 2284

delphi 窗体的创建和释放

http://www.cnblogs.com/chenmfly/p/4770490.html delphi 窗体的创建和释放 Delphi中的窗体分为模式窗体和无模式窗体。二者...
  • y13156556538
  • y13156556538
  • 2016年10月21日 10:09
  • 2968

Delphi的“动态窗体”技术实际应用

在Delphi可视化设计环境中,允许程序员在代码编辑器中以文本的方式浏览和修改DFM文件内容。当用File/Open命令直接打开DFM文件或者选择窗体设计窗口的弹出式菜单上的View as Text命...
  • MaxWoods
  • MaxWoods
  • 2014年06月04日 23:00
  • 2049

C#应用WindowsApi实现查找\枚举(FindWindow、EnumChildWindows)窗体控件,并发送消息。

转载:http://www.cnblogs.com/hehexiaoxia/p/4223927.html 首先介绍基本WindowsApi: public static exter...
  • beyonddeg
  • beyonddeg
  • 2016年10月22日 05:15
  • 2118

Delphi中的窗体创建与销毁

Delphi中的窗体,有模式窗体与非模式窗体两种。两种窗体的调用方式不同,模式窗体使用ShowModal显示,非模式窗体使用Show显示。当显示模式窗体的时候你是不能操作本程序的其他窗体的,你不能把焦...
  • wozengcong
  • wozengcong
  • 2014年01月04日 23:50
  • 2615

delphi 窗体的创建和释放

http://www.cnblogs.com/chenmfly/p/4770490.html delphi 窗体的创建和释放 Delphi中的窗体分为模式窗体和...
  • coollen
  • coollen
  • 2017年12月19日 16:04
  • 28

delphi 窗体的创建和释放

Delphi中的窗体分为模式窗体和无模式窗体。二者的区别在于,用户可以在无模式窗体和其他窗体之间切换。这样,用户就可以同时工作于一个应用程序的几个部分。Delphi中窗体的初始化有两种情况,动态创建,...
  • kunlun122
  • kunlun122
  • 2012年05月24日 15:02
  • 1403

用DELPHI创建DLL文件封装窗体.doc

  • 2011年08月18日 18:45
  • 23KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi下用WindowsAPI创建窗体
举报原因:
原因补充:

(最多只允许输入30个字)