首页 » 文章随笔 » 技巧教程 » delphi如何根据句柄判断窗口的显示状态?

delphi如何根据句柄判断窗口的显示状态?

有时我们取得一个窗口的句柄,需要知道这个窗口是隐藏还是显示状态?或者我们取得窗体的句柄,想隐藏这个窗体或显示这个窗体,该怎么办呢?这时我们需要用到API函数GetWindowLong或者GetWindowInfo,

GetWindowLong的函数原型LONG GetWindowLong( HWND hWnd,int nIndex )
参数:
hWnd:指定窗口的句柄
nIndex:需要获得的信息的类型
值 功能
nIndex取值如下:
GWL_EXSTYLE 得到扩展的窗口风格
GWL_STYLE 得到窗口风格
GWL_WNDPROC 得到窗口回调函数的地址,或者句柄。得到后必须使用CallWindowProc函数来调用
GWL_HINSTANCE 得到应用程序运行实例的句柄
GWL_HWNDPARENT 得到父窗口的句柄
GWL_ID 得到窗口的标识符
GWL_USERDATA 得到和窗口相关联的32位的值(每一个窗口都有一个有意留给创建窗口的应用程序是用的32位
的值)
当hWnd标识一个对话框时可以使用下面的值
Value Action
DWL_DLGPROC 得到对话框回调函数的地址,或者句柄。得到后必须使用CallWindowProc函数来调用
DWL_MSGRESULT 得到对话框回调函数中消息处理过程的返回值
DWL_USER 得到额外的应用程序私有信息,如一些句柄和指针等
返回值:
成功时,返回一个请求的32位的值
失败时,返回0,可以使用GetLastError来取得错误信息

示例1:
long nStyle = ::GetWindowLong(hWnd, GWL_STYLE); // hWnd是一个编辑框的句柄
if(nStyle & ES_PASSWORD)
{
AfxMessageBox(“这是一个密码域”);
}
示例2:
LONG GetWindowLong(
HWND hWnd, // handle of window
int nIndex // offset of value to retrieve
);
第二个参数是0的话,就是指定GW_HWNDFIRST!!!
GW_HWNDFIRST = 0; {同级别 Z 序最上}
GW_HWNDLAST = 1; {同级别 Z 序最下}
GW_HWNDNEXT = 2; {同级别 Z 序之下}
GW_HWNDPREV = 3; {同级别 Z 序之上}
GW_OWNER = 4; {属主窗口}
GW_CHILD = 5; {子窗口中的最上}

GetWindowInfo函数原型

BOOL WINAPI GetWindowInfo(__in HWND hwnd,__inout PWINDOWINFO pwi);

参数
hwnd  要检索信息的窗口的句柄。
pwi  指向一个接收信息的 PWINDOWINFO 结构,注意,在调用该函数之前必须设置 cbSize 成员为sizeof(WINDOWINFO)。]

typedef struct tagWINDOWINFO {
DWORD cbSize;
RECT rcWindow;  //窗口区域
RECT rcClient;  //Client区域
DWORD dwStyle; //窗口样式
DWORD dwExStyle; //窗口扩展样式
DWORD dwWindowStatus; //WS_ACTIVECAPTION表示活动,否则为0
UINT cxWindowBorders;  //边框宽度
UINT cyWindowBorders;  //边框宽度
ATOM atomWindowType;
WORD wCreatorVersion;
} WINDOWINFO, *PWINDOWINFO, *LPWINDOWINFO;

Members
cbSize
Type: DWORD
The size of the structure, in bytes. The caller must set this member to sizeof(WINDOWINFO).
rcWindow
Type: RECT
The coordinates of the window.
rcClient
Type: RECT
The coordinates of the client area.
dwStyle
Type: DWORD
The window styles. For a table of window styles, see Window Styles.
dwExStyle
Type: DWORD
The extended window styles. For a table of extended window styles, see Extended Window Styles.
dwWindowStatus
Type: DWORD
The window status. If this member is WS_ACTIVECAPTION (0x0001), the window is active. Otherwise, this member is zero.
cxWindowBorders
Type: UINT
The width of the window border, in pixels.
cyWindowBorders
Type: UINT
The height of the window border, in pixels.
atomWindowType
Type: ATOM
The window class atom (see RegisterClass).
wCreatorVersion
Type: WORD
The Windows version of the application that created the window.

返回值
如果函数成功,则返回值为非零值。
如果该函数失败,则返回值为零。要获取扩展的错误的信息,请调用GetLastError .

delphi根据句柄判断窗口状态代码

//用GetWindowLong函数 
style := GetWindowLong(MyHandle, GWL_STYLE);
 if (style and WS_VISIBLE) > 0 then //此句柄窗口是显示的
    ShowWindow(MyHandle, SW_HIDE)
 else
    ShowWindow(MyHandle, SW_SHOW);
或用GetWindowInfo函数
 GetWindowInfo(MyHandle, Pwi);
 if (Pwi.dwStyle and WS_VISIBLE) > 0 then //此句柄窗口是显示的
    ShowWindow(MyHandle, SW_HIDE)
 else
    ShowWindow(MyHandle, SW_SHOW);

通过这两个函数,我们可以判断窗体的样式来确定窗体的一些我们所需要的信息!

取得窗体信息的函数还有

获取窗口大小(RECT)矩形
以下是使用方法:
RECT rct; //创建一个RECT变量,用于接收下面函数的出参。
BOOL GetWindowRect(hwd, &rct);
//入参 窗口句柄
//出参 一个RECT变量的地址,于接收函数的获取的值
返回值:
如果成功:返回 非零;
失败:返回零;调用GetLastError()获取错误原因。

获取窗口类名
wchar_t strClassName[30] = {0};
//如果当前程序使用的是unicode字符集,那么就使用wchar_t类型,否则使用char类型。int GetClassName(hwd, strClassName, 30)
入参:hwd,窗口句柄

缓冲区大小
出参:strClassName,缓冲区
返回值:
成功,返回写入到缓冲区的字符个数;
失败,返回 零,调用GetLastError()获取错误原因。

获取DC
HDC GetDC(hwd);
入参:hwd,窗口句柄
返回值:
成功,返回,当前窗口的句柄
失败,返回,NULL

获取鼠标位置
POINT pt;
GetCursorPos(&pt)

取窗口信息的相关代码

function GetWindowTitle(hwnd: HWND): string;
begin
  SetLength(Result, 255);
  SetLength(Result, GetWindowText(hwnd, PChar(Result), 255));
end;
 
function GetWindowClass(hwnd: HWND): string;
begin
  SetLength(Result, 255);
  SetLength(Result, GetClassName(hwnd, PChar(Result), 255));
end;
 
function GetWindowInfo(hwnd: HWND): string;
begin
  Result := GetWindowTitle(hwnd) + ' [' + GetWindowClass(hwnd) +
    '] (' + IntToStr(hwnd) + ')';
end;
 
function EnumChildProc(hwnd: HWND; lParam: Integer): BOOL; stdcall;
var
  NewNode, ParentNode: TTreeNode;
begin
  Result := True;
  ParentNode := TTreeNode(lParam);
  NewNode := ParentNode.Owner.AddChild(ParentNode,
    GetWindowInfo(hwnd));
  EnumChildWindows(hwnd, @EnumChildProc, Integer(NewNode));
end;
 
function EnumWindowsProc(hwnd: HWND; lParam: Integer): BOOL; stdcall;
var
  NewNode: TTreeNode;
begin
  Result := True;
  NewNode := TTreeView(lParam).Items.Add(nil, GetWindowInfo(hwnd));
  EnumChildWindows(hwnd, @EnumChildProc, Integer(NewNode));
end;
 
procedure EnumWindowsTree(Tree: TTreeView);
begin
  EnumWindows(@EnumWindowsProc, Integer(Tree));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  TreeView1.Items.Clear;
  EnumWindowsTree(TreeView1);
end;

 

未经允许不得转载:百脑问 » delphi如何根据句柄判断窗口的显示状态?

×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开微信扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

分享到:更多 ()

评论 抢沙发

评论前必须登录!

百脑问 创新坚持 杰然不同

赞助我们联系我们
数据查询次数:18 消耗时间:0.562 秒, 使用内存: 20.40MB
您好,有什么可以帮您吗!