查句柄知多少

【 tulaoshi.com - 编程语言 】

基本上句柄是标志窗口，我可以根据句柄又可引申其中更多如类名，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;