请教高手枚举窗口的问题..

Question

function EnumWindowsFunc(hwd: THandle; Param: Pointer):boolean;
var
Caption:array[0..255] of Char;
begin
caption:='';
GetWindowText(hwd,Caption,sizeof(caption)-1);
if hwd>null then
begin
form1.ListBox1.items.add(string(caption));
form1.Label1.caption:=inttostr(hwd);
end;
Result:=True;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
 EnumWindows(@EnumWindowsFunc,0);
end;
这样可以获得窗口句柄(个人认为窗口名也得到了),将窗口填入listbox的时候显示空白,但是listbox确有下拉条,说明空口名已成功传入listbox,但是传入的值全是空白,请各位高手不吝赐教

Answer 1

function EnumWindowsFunc(hwd: THandle; Param: Pointer):boolean; stdcall;