定义函数 function GetAllHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall; var buffer: array[0..255] of Char; buffer1: array[0..255] of Char; s:string; int:integer; begin Result := True; GetClassName(hwnd,buffer,256); Form1.listbox1.itmes.add(format('句柄:%d 类名:%s',[hwnd,StrPas(Buffer)]));//写入窗口ListBox中 end;
调用函数 procedure TForm1.Button1Click(Sender: TObject); var Handle:THandle; begin Handle:=findWindow(nil,'要查找的窗口标题'); EnumChildWindows(Handle, @GetAllHandle, Integer(@Handle)); end;