function EnumChildWindowsProc(hWnd:HWND;lparam:LPARAM):Boolean;stdcall; var ssText:PChar; begin GetMem(ssText,255); ZeroMemory(ssText,255); GetWindowText(hWnd,ssText,255); if Trim(StrPas(sstext)) <> '' then Form1.mmo1.Lines.Add(ssText); result:=True; end; //------------------------------------------------------------------------------procedure TForm1.btn1Click(Sender: TObject); var w_hWnd:THandle; begin w_hWnd:=FindWindow(nil,'ÄãµÄ´°¿Ú'); EnumChildWindows(w_hWnd,@EnumChildWindowsProc,0); end;
var
ssText:PChar;
begin
GetMem(ssText,255);
ZeroMemory(ssText,255);
GetWindowText(hWnd,ssText,255);
if Trim(StrPas(sstext)) <> '' then
Form1.mmo1.Lines.Add(ssText);
result:=True;
end;
//------------------------------------------------------------------------------procedure TForm1.btn1Click(Sender: TObject);
var
w_hWnd:THandle;
begin
w_hWnd:=FindWindow(nil,'ÄãµÄ´°¿Ú');
EnumChildWindows(w_hWnd,@EnumChildWindowsProc,0);
end;
或
GetWindow有事找MSDN