先用这个过程查找桌面的句柄:
procedure FindDesktop;
var wndHandle THandle;
wndClass:array[0..255] of char;
begin
StrPCopy(@wndClass[0],'ProgMan');
wndHandle:=FindWindow(@wndClass[0],nil);
end;再用GetForegroundWindow函数取得当前窗口的句柄,然后和上述wndHandle桌面句柄比较,如果相同则说明当前窗口没有被遮挡,否则被遮挡。
在9x/me/2000下都可以工作。
procedure FindDesktop;
var wndHandle THandle;
wndClass:array[0..255] of char;
begin
StrPCopy(@wndClass[0],'ProgMan');
wndHandle:=FindWindow(@wndClass[0],nil);
end;再用GetForegroundWindow函数取得当前窗口的句柄,然后和上述wndHandle桌面句柄比较,如果相同则说明当前窗口没有被遮挡,否则被遮挡。
在9x/me/2000下都可以工作。
解决方案 »
- delphi取excel工作表名
- 我已经被RICHEDIT做痕迹保留弄的焦头乱额了,帮帮忙啊
- Delphi下一版本可能将加入C++BUILDER,Delphi将不在是一个专用开发工具
- 一个数据导入导出的程序!!!!
- 还原ACCESS时遇到的问题
- 怎么判断一个窗体已经打开了
- key=#13代表什么键值?#号是什么运算符?
- !!!编程实现合并.reg文件到系统注册表中!!!
- 制作的安装程序卸载不了,再安装也安装不上,急!急!--100分
- 高分赠高手:一个我认为很容易实现,却很难做快做好的问题!多线程高手、算法高手均有机会!
- 最短的dvd解码程序(c),我实在是看不懂,高手请指教
- 一个惊天动地的发现,这是为什么?
就可以了。如果所有的可见窗口都是Iconic,就是全部窗口都最小化了。
Kingron:
你的个人主页我看了一下,老实说,作的太不象话了!呵呵!