SetWindowLong函数GetWindowLong函数
这两个函数具体应用如下:SetWindowLong函数GetWindowLong函数
Delphi窗口化游戏
var
Thwnd:HWND;//声明变量 句柄变量
devmodel1:DEVMODE;//屏幕分辨率变量
style,exstyle:longint;//窗口属性变量
begin
//得到游戏句柄
Thwnd:findwindow('CLIENT',nil);
//设置分辨率
if EnumDisplaySettings(0,0,devmode1)then
begin
devmode1.dmPelsWidth:1024;
devmode1.dmPelsHeight:=768;
devmode1.dmBitsPerPel:=32;
devmode1.dmDisplayFrequency:=75;
ChangeDisplaySetting(devmode1,0);
end;
//得到窗口原来的属性
style:=GetWindowLong(Thwnd,GWL_STYLE);
//定义新属性
style:=WS_OVERLAPPEDWINDOW or WS_VISIBLE;
//更改窗口属性
SetWindowLong(Thwnd,GWL_STYLE,style);
//得到窗口扩展属性
exstyle:=GetWindowLong(Thwnd,GWL_EXSTYLE);
//定义新扩展属性
exstyle:=WS_EX_APPWINDOW or WS_EX_WINDOWEDGE;
//更改窗口扩展属性
SetWindowLong(Thwnd,GWL_EXSTYLE,exstyle);
//更改的屏幕以屏幕的0,0为坐标,大小为800*600
SetWindowPos(Thwnd,HWND_NOTOPMOST,0,0,1020,768,SWP_SHOWWINDOW);
ShowWindow(Thwnd,SW_SHOWNORMAL);
二、WS_EX_APPWINDOW在任务栏显示图标
SetWindowLong(Handle,GWL_EXSTYLE,Style or WS_EX_APPWINDOW)
三、修改托盘相关信息
unit Unit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,ShellApi,StdCtrls;
const
//声明常量
WM_MYNOTIFY=WM_USER+1000;//消息
ID_MAIN=100;//定义图标的ID
type
TForm1=class(TForm)
Button1: TButton;
Button2: TButton;
popupmenu1:TPopupmenu;
procedure FormCreate(Sender:TObject);
procedure FormClose(Sender: TObject;var Action: TCloseAction);
//声明私有函数
Function AddIcon(hwnd: HWND):Boolean;
Function RemoveIcon(hwnd: HWND):Boolean;
Procedure MyNotify(var Msg: TMessage);message WM_MYNOTIFY;
private
{Privatedeclarations}
ExitApp:Boolean;
public
{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
{$R *.dfm}
//函数实现部分
Function TForm1.AddIcon(hwnd:HWND):Boolean;
var
nid:NOTIFYICONDATA;//系统消息对象
begin
nid.cbSize:=sizeof(NOTIFYICONDATA);//对象存储大小
nid.Wnd:=hwnd;//消息对象句柄为窗口句柄
nid.uID:=ID_MAIN;//图标的ID号
nid.uFlags:=7; //NIF_MESSAGE or NIF_ICON or NIF_TIP;//响应的事件
nid.uCallbackMessage:=WM_MYNOTIFY;//返回信息
nid.hIcon:=Application.Icon.Handle;//图标
strCopy(nid.szTip,'hello');//转换字符串格式
AddIcon:=Shell_NotifyIcon(NIM_ADD,@nid);//添加到任务栏
end;
Function TForm1.RemoveIcon(hwnd:HWND):Boolean;
var
nid:NOTIFYICONDATA;
begin
nid.cbSize:=sizeof(NOTIFYICONDATA);
nid.Wnd:=hwnd;
nid.uID:=ID_MAIN;
nid.uFlags:=0;
RemoveIcon:=Shell_NotifyIcon(NIM_DELETE,@nid);
end;
Procedure TForm1.MyNotify(var Msg:TMessage);
var
mousept: TPoint;
begin
if frm_login.Visible=false then
begin
case Msg.LParam of
WM_LBUTTONDBLCLK: //鼠标左键按下WM_LBUTTONDOWN,左键双击WM_LBUTTONDBLCLK,左键弹起WM_LBUTTONUP,右键弹起WM_RBUTTONUP
begin
ShowWindow(Handle, SW_SHOW);
ShowWindow(Application.handle, SW_SHOW);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
not (GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW));
end;
end;
case Msg.LParam of
WM_RBUTTONUP:
begin
GetCursorPos(mousept);
Form1.popupmenu1.popup(mousept.x, mousept.y);
end;
end;
end;
end;
procedure TForm1.FormCreate(Sender:TObject);
begin
ExitApp:=False;
SetWindowLong(application.handle,gwl_exstyle,ws_ex_toolwindow);
AddIcon(handle);//添加图标
end;
procedure TForm1.FormClose(Sender: TObject;var Action: TCloseAction);
begin
if ExitApp then
Action:= caFree
else
Action:= caNone;
//隐藏窗体.程序并没有退出
ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
end;
end.
四、从任务栏隐藏该使用
ShowWindow(Application.Handle,SW_HIDE);
显示
ShowWindow(Application.Handle,SW_SHOW);
五、
{将程序的窗口样式设为TOOL窗口,可避免在任务条上出现}
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
六、
参考:
如果你下载(源程序下载)并运行这个例程序,你会发现如果我们在托盘图标上点击鼠标右键,则会弹出一个右键菜单(如右图)。如果点击相应的菜单项,程序主窗体会随之变化,这样就可以控制程序的行为。而如果当主窗体处于最小化状态时,我们在托盘图标上点击左键,窗体会回复到原来的大小。其实实现上述的功能都要依赖于WINDOWS操作系统的消息机制,要完全弄懂这个机制挺不容易的,但是我们可以按下述文字来理解它。
SetWindowLong函数GetWindowLong函数的更多相关文章
- C++虚函数和函数指针一起使用
C++虚函数和函数指针一起使用,写起来有点麻烦. 下面贴出一份示例代码,可作参考.(需要支持C++11编译) #include <stdio.h> #include <list> ...
- Oracle_SQL函数-分组函数
分组函数 什么是分组函数 分组函数作用于一组数据,并对一组数据返回一个值 组函数类型:主要有6种 AVG - 平均 COUNT - 计数 MAX - 最大 MIN - 最小 SUM - 求和 STDD ...
- Oracle_SQL函数-单行函数
SQL函数 SQL函数分类 SQL函数主要有两种,分为单行函数.多行函数 单行函数:只对一行进行变换,每行返回一个结果.可以转换数据类型,可以嵌套参数可以是一列或一个值 多行函数:多行函数,每次对一组 ...
- 12-返回指针的函数&&指向函数的指针
前言 接下来我只讲指针的最常见用法,比如这一章的内容----返回指针的函数 与 指向函数的指针 一.返回指针的函数 指针也是C语言中的一种数据类型,因此一个函数的返回值肯定可以是指针类型的. 返回 ...
- JavaScript 闭包系列二(匿名函数及函数的闭包)
一. 匿名函数 1. 函数的定义,可分为三种 1) 函数声明方式 function double(x) { return 2*x; } 2)Function构造函数,把参数列表和函数体都作为字 ...
- javascript函数一共可分为五类: ·常规函数 ·数组函数 ·日期函数 ·数学函数 ·字符串函数
javascript函数一共可分为五类: ·常规函数 ·数组函数 ·日期函数 ·数学函数 ·字符串函数 1.常规函数 javascript常规函数包括以下9个 ...
- 速战速决 (3) - PHP: 函数基础, 函数参数, 函数返回值, 可变函数, 匿名函数, 闭包函数, 回调函数
[源码下载] 速战速决 (3) - PHP: 函数基础, 函数参数, 函数返回值, 可变函数, 匿名函数, 闭包函数, 回调函数 作者:webabcd 介绍速战速决 之 PHP 函数基础 函数参数 函 ...
- PHP基于数组的分页函数(核心函数array_slice())
关于数组的分页函数,用数组进行分页的好处是可以方便的进行联合多表查询,只需要将查询的结果放在数组中就可以了以下是数组分页的函数,函数page_array用于数组的分页,函数show_array用于分页 ...
- Python入门笔记(19):Python函数(2):函数/方法装饰器
一.装饰器(decorators) 装饰器的语法以@开头,接着是装饰器函数的名字.可选参数. 紧跟装饰器声明的是被装饰的函数和被装饰的函数的可选参数,如下: @decorator(dec_opt_ar ...
随机推荐
- Eric6安装问题解决
按照http://eric-ide.python-projects.org/eric-download.html中的说明,执行命令:python install.py 却遇到下面的问题: Compil ...
- tf.variable_scope()和tf.name_scope()
1.tf.variable_scope 功能:tf.variable_scope可以让不同命名空间中的变量取相同的名字,无论tf.get_variable或者tf.Variable生成的变量 Tens ...
- Logstash 学习资料
学习资料 网址 Logstash Reference(官方) https://www.elastic.co/guide/en/logstash/current/introduction.html
- JMeter5.1开发SMTP协议接口脚本
jmeter可以测试发邮件和读取邮件. 发送邮件 上图部分解释: Server:邮件发送服务 Port:发邮件端口,不加密25,加密465,如果是465端口,Security settings 需要选 ...
- appache开启自定义404错误并编写404.html
1,让apache支持.htaccess 我们要找到apache安装目录下的httpd.conf文件,在里面找到 <Directory /> Options FollowSymLinks ...
- 【java异常】expected at least 1 bean which qualifies as autowire candidate for this depende
1.查看接口实现类是否加入注解,如service.repository等 2.查看spring配置文件是否自动扫描包 <context:component-scan base-packag ...
- maven jar包冲突的发现与解决[工具篇]
本文是我的第177篇文章. 关于jar冲突排查解决的问题,相信很多小伙伴也都知道有一些,无非就是两类:命令 or 工具. 命令方式比如: mvn dependency:tree 工具方式比如: Mav ...
- opencv获取网络相机的图像-不用sdk
海康相机 优点:不用sdk直接网络获取 缺点:速度有1-2秒的延迟 使用型号 1280*680分辨路 #include <iostream> #include<opencv2/ope ...
- [RN] React Native 使用 图片预览和放大 插件 react-native-image-zoom-viewer 过程中,放大报错问题
React Native 使用 图片预览和放大 插件 react-native-image-zoom-viewer 过程中,放大报错问题 报错如下: Cannot record touch end w ...
- 靶场sql注入练手----sqlmap篇(纯手打)
靶场地址:封神台 方法一.首先尝试手工找注入点判断 第一步,判断是否存在sql注入漏洞 构造 ?id=1 and 1=1 ,回车,页面返回正常 构造 ?id=1 and 1=2 ,回车,页面不正常,初 ...