在implementation下面写
function MyWindows(Hwnd:Longint;Wparam:longint):longint;stdcall;
var WindowText:Pchar;
TextAndHwnd:string;
begin
GetMem(WindowText,255);
GetWindowText(Hwnd,WindowText,255);
if Length(WindowText)<>0 then
begin
TextAndHwnd:=WindowText +'--'+inttostr(Hwnd);
//ShowWindow(Hwnd,SW_SHOW);//该句为显示窗口
Form1.ListBox1.Items.Add(TextAndHwnd);
end;
Result :=1;
end;