谁能给点代码？

首先请明白句柄是个什么东西？什么组件才有句柄？
然后就从窗体的子控件列表取就好了。
function GetHandle(const frm:TWinControl; var ArrHandle:array of Thandle):Integer;
var
i,Len:integer;
begin
result := 0;
Len := Length(ArrHandle);
for i:= 0 to frm.Controlcount -1 do
begin
if frm.Controls[i] is TWincontrol then
begin
Inc(Result);
Inc(len);
setlength(ArrHandle,Len);
ArrHandle[Len-1]:= TWinControl(frm.Controls[i]).Handle;
Result:=GetHandle(TWinControl(frm.Controls[i]),ArrHandle)+Result;
end;
end; //只适用VCL

对了，那个窗体也是外部的，这个代码可以吗？