Delphi学习:查句柄知多少

riueikio638133

riueikio638133

2016-01-29 14:04

Delphi学习:查句柄知多少,Delphi学习:查句柄知多少
 
基本上句柄是标志窗口,我可以根据句柄又可引申其中更多如类名,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; 
 
展开更多 50%)
分享

猜你喜欢

Delphi学习:查句柄知多少

Delphi
Delphi学习:查句柄知多少

查句柄知多少

编程语言 网络编程
查句柄知多少

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

孕期B超知多少?告诉您B超查什么

怀孕
孕期B超知多少?告诉您B超查什么

保湿误区知多少?

美容 护肤 保湿
保湿误区知多少?

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

丰胸精油知多少

电脑网络
丰胸精油知多少

婚前保健知多少

孕前
婚前保健知多少

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Delphi7的WebService与数据库

Delphi7的WebService与数据库

《来吧!动物之森》新手刷萝卜快速筹钱攻略

《来吧!动物之森》新手刷萝卜快速筹钱攻略
下拉加载更多内容 ↓