WEB开发网
开发学院软件开发Delphi 查句柄知多少 阅读

查句柄知多少

 2006-02-04 13:50:47 来源:WEB开发网   
核心提示:基本上句柄是标志窗口,我可以根据句柄又可引申其中更多如类名,查句柄知多少,windowtitle等属性所以基于这点,一般开发工具会提供查句柄,查类名等工具,vs提供的spy++就是一个很好例子
基本上句柄是标志窗口,我可以根据句柄又可引申其中更多如类名,windowtitle等属性
所以基于这点,一般开发工具会提供查句柄,查类名等工具,vs提供的spy++就是一个很
好例子。现在教你们一查句柄知多少。其实也简单,下面贴出源代码
PRocedure Tform1.TimerTimer(Sender: TObject);
var
 Pos: TPoint;
 Handle: HWND;
 ScreenDC: HDC;
 Buf: array[0..1024] of Char;
 ScreenColor: COLORREF;
begin
 GetCursorPos(Pos); // 得到当前光标位置
 Handle := WindowFromPoint(Pos); // 返回当前位置的句柄
 HandleText.Caption := IntToStr(Handle);
 GetClassName(Handle, Buf, 1024); // 得到类名
 ClassNameText.Caption := Buf;
 SendMessage(Handle, WM_GETTEXT, 33, Integer(@Buf)); // 得到标题
 TitleText.Caption := Buf;
 { 得到光标处点的颜色 }
 ScreenDC := GetDC(0);
 ScreenColor := GetPixel(ScreenDC, Pos.X, Pos.Y);
 Shape.Brush.Color := TColor(ScreenColor);
 RGBColorText.Caption := '红: ' + IntToStr(GetRValue(ScreenColor)) +
  ' 绿: ' + IntToStr(GetGValue(ScreenColor)) + ' 蓝: ' +
  IntToStr(GetBValue(ScreenColor));
 ReleaseDC(0, ScreenDC);
 DelphiColorText.Caption := Format('Delphi中颜色值:$00%2.2x%2.2x%2.2x', [GetBValue(ScreenColor),
  GetGValue(ScreenColor), GetRValue(ScreenColor)]);
 HTMLColorText.Caption := Format('HTML颜色值:#%2.2x%2.2x%2.2x', [GetRValue(ScreenColor),
  GetGValue(ScreenColor), GetBValue(ScreenColor)]);
end;

Tags:句柄 多少

编辑录入:爽爽 [复制链接] [打 印]
    赞助商链接