怎么样取得一个句柄？

Question

procedure TsiComboBox.WndProc(var Message: TMessage); 
 
Var 
  CurRect: TRect; 
begin 
  inherited; 
  if Message.Msg = WM_CTLCOLORLISTBOX then begin 
    //得到列表框句柄 
    FListHandle := Message.LParam; 
    // 得到列表框窗体矩形     GetWindowRect ( FListHandle, CurRect ); 
    If (CurRect.Left <> FRect.Left) Or (CurRect.Top <> FRect.Top) Then 
    Begin 
      FRect := CurRect; 
    End; 
......

Answer 1

通常都可以通过TXXX.Handle来获得，如果它有的话，比如要获得一个Form的句柄，就可以通过
var
  Wnd: THandle;
begin
  Wnd := Form1.Handle;
  ...
end;

Answer 2

同志我想你可能连句柄也不知道是什么!你这样问真的是令人摸不着头脑！看一下这段话吧。什么是句柄？ 句柄就是用来区分各种内存对象的唯一标识符号，是个32位整数。
 有些是整个系统唯一(如窗口句柄)，有些是当前进程或线程中唯一
 (如线程句柄，全局的有另一个标识符)。 详细的可分为许多种，都是以H开头的。在VB中使用时全部都用Long。
 常见的有窗口句柄(HWND)，设备描述表句柄(HDC)，内存句柄(HMEM)，
 文件句柄，进程句柄，线程句柄，笔的类型句柄(HPEN)，字体句柄(HFONT)，
 区域句柄(HRGN)等等。 在申请句柄时是要占用资源的，分三类SYSTEM、USER、GDI。
 而WINDOWS的资源是固定的，并不随内存的扩大而扩大，所以使用完以后一定要释
放。 如果只用VB本身的代码一般是不会用到句柄的，但要是使用API函数的话，
 大多数会使用。补充几点：再Windows系统中，句柄（我一直觉得这个词翻译得特别别扭）分为三大类：Kernel
Handle、User Handle和应用程序自定义的Handle。Kernel Handle实际上是进程内Kernel对象的指针表索引，Kernel对象包括进程、文
件、信号等。但是MS为了掩盖着一事实，在系统启动时生成了一个所谓Obsfucator的值
（其实应该是Obfuscator，Microsoft Bugs(R) :)，生成Handle后将Handle与这个值异
或后返回给应用程序，所以看到的Handle都是一些很大而且毫无意义的数字。这些
Handle和索引的对象是由KRNL32.DLL和VMM32.VXD共同管理的，所以称之为Kernel
Handle。User Handle是用来标示窗口、DC等对象的，他们是真实的指针，但指向的并不是对象
的开头，有一个偏移量。同样，这些对象是由USER32.DLL管理的。第三种Handle不过是应用程序自定义的一些索引之类的东东，具体的意义和应用程序相
关。

Answer 3

var
  Wnd: THandle;
begin
  Wnd := FindWindow('paramter1','paramer2');
end;

Answer 4

呵呵，一木的话经典呀^_*（to 一木：你的名字是用pinyin打的吗？呵呵——说笑咯;-p）

Answer 5

FindWindow
FindWindowEx
这些函数的参数,你在delphi的帮助文件里面可以找到原型

Answer 6

并不是每个对象都有句柄，对于有句柄的对象你可以直接用它的句柄属性：
var
  wnd: THandle;
begin
   wnd := Form1.Handle;
end;

Answer 7

什么样的对象才有句柄呢？是不是API函数里才涉及？难道直接打
var
  wnd: THandle;
begin
   wnd := Form1.Handle;
end;
就可以了吗？
             一个都不能菜
                        --张导