Delphi 下用Windows API 创建窗体
Delphi 下用Windows API 创建窗体
副标题:
作者:佚名 文章来源:大富翁 点击数:119 更新时间:2005-2-25
Delphi 下用Windows API 创建窗体
// 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.
Delphi 下用Windows API 创建窗体相关推荐
- 使用Delphi编写自动关闭Windows信使服务窗体程序
使用Delphi编写自动关闭Windows信使服务窗体程序 Windows信使服务是Windows为了方便尽心系统管理而设置的一项工具,初衷是很好的可以使得管理员方便的在局域网内发布消息给各个用户. ...
- 通过Windows API 创建窗口的过程理解windows消息机制
一个基于windows API 的基于窗体.消息循环.事件驱动的 Windows C语言风格的Windows 程序. 创建一个Win32应用程序的步骤: 1.定义 WinMain 函数: 2.设计窗口 ...
- windows API 创建系统托盘图标
系统托盘在我们使用的程序中很普遍,下面我们来看一个很不错的例子,使用Win32 API实现,对理解系统托盘有些帮助. [cpp] view plaincopyprint? #include <w ...
- 读书 - Delphi下深入Windows核心编程 第二天
技术交流,DH讲解. 今天进入这书第二章 钩子(HOOK). 先说说钩子是什么? 钩子其实就在你环境中加上一层过滤,在特殊情况下就触发钩子回调函数. 比如说我们安装了全局的键盘钩子,那么当我们按动键盘 ...
- windows API 最大化窗体
这个是个入门问题,很奇怪为什么网上的回答那么213,自己写一个 private void button3_Click(object sender, EventArgs e) { Int ...
- delphi调用windows api
在Delphi中调用Windows API 函数十分方便,只需在单元的uses段加入Windows 单元名即可(对于由Delphi自动创建的单元,该项工作已经完成).单元Windows.pas 已经由 ...
- messagebox 全部使用_「一」Windows API 零门槛编程指南——MessageBox
本篇作为Windows API 系列文章的第一篇,将简要的讲解一下什么是Windows API,Windows API能做些什么,并且尽可能讲解一些新出现的专有名词:本系列博文几乎没有难啃的" ...
- 【一】Windows API 零门槛编程指南——MessageBox 基本使用及基础讲解
本篇作为Windows API 系列文章的第一篇,将简要的讲解一下什么是Windows API,Windows API能做些什么,并且尽可能讲解一些新出现的专有名词:本系列博文几乎没有难啃的" ...
- 跨进程的 键盘钩子_Delphi下深入Windows编程之钩子原理一
我的理想是能够写出一个可以永不封号的游戏外G 嗯,所以需要学习Windows下编程,最近好不容易有一点点空余时间,抓紧时间读书[Delphi下深入Windows编程],人丑就该多读书 钩子原理 定义: ...
最新文章
- 淘淘经受了一次考验...
- redis 主从复制功能 原理
- Jenkins之构建Maven项目的多种方式
- 过程记录 yolov3目标检测输出目标坐标和原图物体像素坐标比较
- 019.MFC_两种对话框
- [LeetCode] Find All Numbers Disappeared in an Array 找出数组中所有消失的数字
- 将数据传回前端_惠普打印机被发现偷偷回传数据:隐藏极深
- idea java文件显示j_IDEA 快捷使用指南
- Google 的隐私噩梦来了......
- erlang supervisor中启动普通的进程
- TensorFlow错误ValueError: No gradients provided for any variable
- 《深入浅出WPF》——模板学习
- 推荐一款可以在浏览器中运行的人脸识别库
- 知网上下载硕博论文为PDF格式的方法
- 云服务器选择、腾讯云轻量应用服务器面板介绍
- markdown编辑器推荐(附官网)
- 突然觉得一个感情空虚的人是多么的痛苦?
- 3D体感试衣镜,实现虚拟试穿,提升顾客的购物体验!
- 解读 ESP32 API参考-system-App Image Format
- 百度api爬虫(2)json转excel表格
热门文章
- Atitit.http httpclient实践java c# .net php attilax总结
- C++语言基础 例程 派生类的声明与构成
- 5显示日志_如何在 Linux 中管理日志 | Linux 中国
- PYTHON 处理JSON文件(新建key值Findex,并将歌手名字转换为大写首字母作为value值)
- react html编辑器,在线代码编辑器 Codemirror 的轻量级 React 组件
- 关于反射程序集的心得
- python range倒序_Python算法学习之堆和堆排序
- oracle查询结果怎么去掉重复的,怎么去除重复的查询结果
- 十分钟带你理解Kubernetes核心概念
- [荐] 微信小程序模板源码合集