delphi下用windowsapi创建窗体.docxVIP

delphi 下用 windowsapi 创建窗体 Delphi 下用 Windows API 创建窗体 //Delphi 下调用 Windows API 创建窗体 .////模板 // Delphi 下调用 Windows API 创建窗体 . // // 模板 BY Hottey 2004-4-13-0:18 // // 作者网站 :/hottey // program delphi;uses windows, 窗口消息处理函messages;const 窗口消息处理函 hellostr= ‘ Hello World! ‘ ;{$R delphi.res}// 数. function MyWinProc(hWnd:THandle;uMsg:UINT;wParam,lParam:C ardinal):Cardinal;exp ort;stdcall;var begin hdca,hdcb:THandle;// hdca,hdcb:THandle; // 设备描述表句柄 . rect:TRect;//矩形结构 rect:TRect; //矩形结构 . font:HFont; ps:TPaintStruct;// ps:TPaintStruct; // 绘图结构 . 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;// Msg :TMsg; // 消息结构 . hWnd,hInst :THandle;//Windows hWnd,hInst :THandle; //Windows 窗口句柄 . WinClass :TWndClassEx;//Windows WinClass :TWndClassEx; //Windows 窗口类结构 . begin hInst:=GetModuleHandle(nil); // get the application instance // 类 // 类 WinClass.lpszClassName:= ‘ MyWindow‘ ; 名. WinClass.style:=CS_HREDRAW or CS_VREDRAW or //程序的实例 //程序的实例 WinClass.hInstance:=hInst; 句柄 . //窗//中预// //窗 //中预 WinClass.lpfnWndProc:=@MyWinProc; 口过程 . WinClass.cbClsExtra:=0; 两个域用于在类结构和 Window s 内部保存的窗口结构 WinClass.cbWndExtra:=0; WinClass.hIcon:=LoadIcon(hInstance,MakeIntResource( MAINICON‘)); WinClass.hIconsm:=LoadIcon(hInstance,MakeIntResourc e( ‘ MAINICON‘ )); WinClass.hCursor:=LoadCursor(0,IDC_Arrow); //GetStockObject 获取一个图形对象 ,在这里是获取绘制窗 口背景的刷子 ,返回一个白色刷 子的