用 Delphi 开发一款桌面程序,不使用VCL,完全使用 windwos sdk的方式。要求如下: 1、程序包含多个窗口,但都不能在任务栏上显示图标;2、程序窗口始终显示在桌面上,不能被最小化。即使用户按下 WIN+D,程序窗口依然保持显示在桌面上。3、窗口始终置底,就是说即使用户点击我们的窗口,窗口不能被前置遮挡住其他程序的窗口。

时间: 2024-02-15 16:04:39 浏览: 25
好的,按照您的要求,我为您提供一份 Delphi 使用 Windows SDK 开发的示例代码。这个示例代码包含两个窗口,一个主窗口和一个子窗口。主窗口不会在任务栏上显示图标,子窗口始终显示在桌面上且不能被最小化,而且始终置底。 首先,我们需要在 Delphi 中创建一个新的项目。在项目中添加两个窗口,一个主窗口和一个子窗口。然后,我们需要在主窗口的 OnCreate 事件中设置窗口样式,使其不在任务栏上显示。代码如下: ``` procedure TForm1.FormCreate(Sender: TObject); begin // 设置窗口样式,不在任务栏上显示 SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW); end; ``` 接下来,我们需要在主窗口的 OnShow 事件中创建子窗口,并设置子窗口的样式,使其始终显示在桌面上且不能被最小化。代码如下: ``` procedure TForm1.FormShow(Sender: TObject); var hwndChild: HWND; begin // 创建子窗口 hwndChild := CreateWindowEx(WS_EX_TOOLWINDOW or WS_EX_TOPMOST or WS_EX_TRANSPARENT or WS_EX_LAYERED, PChar('Static'), nil, WS_POPUP or WS_VISIBLE, 0, 0, Screen.Width, Screen.Height, Handle, 0, HInstance, nil); // 设置子窗口样式,始终显示在桌面上且不能被最小化 SetWindowLong(hwndChild, GWL_EXSTYLE, GetWindowLong(hwndChild, GWL_EXSTYLE) or WS_EX_TOOLWINDOW or WS_EX_TOPMOST); end; ``` 最后,我们需要在子窗口的 OnCreate 事件中设置子窗口的样式,使其始终置底。代码如下: ``` procedure TForm2.FormCreate(Sender: TObject); begin // 设置窗口样式,始终置底 SetWindowPos(Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); end; ``` 这样,我们就实现了一个包含两个窗口的 Delphi 桌面程序,主窗口不会在任务栏上显示图标,子窗口始终显示在桌面上且不能被最小化,而且始终置底。

相关推荐

最新推荐

recommend-type

Delphi XE10自带皮肤的使用方法

1、用Delhi开发的应用程序,窗口界面实在是太土气了。 2、尝试下载安装第三方的皮肤,但会使用APP尺寸暴增。 3、经测试,发现XE10竟然自带了36种皮肤,亲测可用,添加了皮肤后窗口,实在是太好看了! 4、本文详细...
recommend-type

Delphi7在64位系统下无法安装组件(Can't load package) 解决方法

Delphi7 在64位windows系统下安装时或安装组件时,如果提示Can't load package的报错,那么可通过本文内容进行设置即可
recommend-type

zigbee-cluster-library-specification

最新的zigbee-cluster-library-specification说明文档。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

实现实时数据湖架构:Kafka与Hive集成

![实现实时数据湖架构:Kafka与Hive集成](https://img-blog.csdnimg.cn/img_convert/10eb2e6972b3b6086286fc64c0b3ee41.jpeg) # 1. 实时数据湖架构概述** 实时数据湖是一种现代数据管理架构,它允许企业以低延迟的方式收集、存储和处理大量数据。与传统数据仓库不同,实时数据湖不依赖于预先定义的模式,而是采用灵活的架构,可以处理各种数据类型和格式。这种架构为企业提供了以下优势: - **实时洞察:**实时数据湖允许企业访问最新的数据,从而做出更明智的决策。 - **数据民主化:**实时数据湖使各种利益相关者都可
recommend-type

用 Python 画一个可以动的爱心

好的,我可以帮助您使用Python来绘制一个动态的爱心。您可以使用turtle库来实现。以下是实现代码: ```python import turtle import math # 设置画布和画笔 canvas = turtle.Screen() canvas.bgcolor("black") pencil = turtle.Turtle() pencil.speed(0) pencil.color("red", "pink") pencil.pensize(3) # 定义爱心函数 def draw_love(heart_size, x_offset=0, y_offset=0):
recommend-type

JSBSim Reference Manual

JSBSim参考手册,其中包含JSBSim简介,JSBSim配置文件xml的编写语法,编程手册以及一些应用实例等。其中有部分内容还没有写完,估计有生之年很难看到完整版了,但是内容还是很有参考价值的。
recommend-type

"互动学习:行动中的多样性与论文攻读经历"

多样性她- 事实上SCI NCES你的时间表ECOLEDO C Tora SC和NCESPOUR l’Ingén学习互动,互动学习以行动为中心的强化学习学会互动,互动学习,以行动为中心的强化学习计算机科学博士论文于2021年9月28日在Villeneuve d'Asq公开支持马修·瑟林评审团主席法布里斯·勒菲弗尔阿维尼翁大学教授论文指导奥利维尔·皮耶昆谷歌研究教授:智囊团论文联合主任菲利普·普雷教授,大学。里尔/CRISTAL/因里亚报告员奥利维耶·西格德索邦大学报告员卢多维奇·德诺耶教授,Facebook /索邦大学审查员越南圣迈IMT Atlantic高级讲师邀请弗洛里安·斯特鲁布博士,Deepmind对于那些及时看到自己错误的人...3谢谢你首先,我要感谢我的两位博士生导师Olivier和Philippe。奥利维尔,"站在巨人的肩膀上"这句话对你来说完全有意义了。从科学上讲,你知道在这篇论文的(许多)错误中,你是我可以依
recommend-type

实现实时监控告警系统:Kafka与Grafana整合

![实现实时监控告警系统:Kafka与Grafana整合](https://imgconvert.csdnimg.cn/aHR0cHM6Ly9tbWJpei5xcGljLmNuL21tYml6X2pwZy9BVldpY3ladXVDbEZpY1pLWmw2bUVaWXFUcEdLT1VDdkxRSmQxZXB5R1lxaWNlUjA2c0hFek5Qc3FyRktudFF1VDMxQVl3QTRXV2lhSWFRMEFRc0I1cW1ZOGcvNjQw?x-oss-process=image/format,png) # 1.1 Kafka集群架构 Kafka集群由多个称为代理的服务器组成,这
recommend-type

已知n个人(以编号0,1,2,3...n-1分别表示)围坐在一张圆桌周围。从编号为0的人开始报数1,数到m的那个人出列;他的下一个人又从1开始报数,数到m+1的那个人又出列(每次报数值加1);依此规律重复下去,直到圆桌周围的人全部出列。用递归方法解决

这个问题可以使用递归方法解决。下面是一个思路: 1. 定义一个函数,接收三个参数:n、m、i,表示还剩下n个人,每次数到m时出列,当前报数的人是i; 2. 如果n=1,返回i,即最后留下的那个人的编号; 3. 否则,计算出下一个出列的人的编号j,通过递归调用函数解决n-1个人的问题,其结果为k; 4. 如果k < j,即当前i之后出列的人的编号为k,需要将k转换为在i之前出列的编号,返回值为 k+(n-1); 5. 如果k>=j,即当前i之后出列的人的编号为k,返回值为 k-(j-1); 下面是对应的Python代码: ```python def josephus(n, m, i):