procedure TForm1.Button1Click(Sender: TObject);
var
h:thandle;
info:appbardata;
begin
h:=FindWindow('Shell_TrayWnd', nil);
info.hWnd:=h;
info.cbSize:=sizeof(info);
info.uEdge:=abe_bottom;
SHAppBarMessage(ABM_GETTASKBARPOS, info);
shappbarmessage(ABM_QUERYPOS,info);
showmessage(inttostr(info.rc.Right-info.rc.Left));
showmessage(inttostr(info.rc.Bottom-info.rc.top));
end;
var
h:thandle;
info:appbardata;
begin
h:=FindWindow('Shell_TrayWnd', nil);
info.hWnd:=h;
info.cbSize:=sizeof(info);
info.uEdge:=abe_bottom;
SHAppBarMessage(ABM_GETTASKBARPOS, info);
shappbarmessage(ABM_QUERYPOS,info);
showmessage(inttostr(info.rc.Right-info.rc.Left));
showmessage(inttostr(info.rc.Bottom-info.rc.top));
end;
解决方案 »
- 急求delphi5.0 安装程序以及自带的打打包程序!!!!!!!!
- 获取创建窗体和变量
- 如何使DBGRID中的某一列的内容以一定的格式输出?
- EHlib框件安装问题,会的进来谈谈
- 临时表不能删除的问题,急!!!
- 关于图象的打印?
- 有3个问题 1.如何从服务器向客户端发通知 2.关于做跨平台的分布式开发的资料 3如何散分呀
- 请大家告诉我一个delphi 6的注册码及授权码,谢谢!
- 如何写测试样例``````
- 怎样当radiobutton 选中时 在DBgrid里面的当前行的里面添上相应的值?
- 还有一个很急的问题,关于解开BPL或DPK为PAS、DCU之类的
- 急!!!是否可以在combobox中的items的内容中导入一个文件的内容???(具体内容请单击)
和Screen.Width,Screen.Height计算一下。