procedure TForm1.Button2Click(Sender: TObject);
function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean; stdcall;
var
buffer: array[0..255] of Char;
begin
Result := True;
GetClassName(hwnd,buffer,256);
if StrPas(Buffer)='SUBWND' then
begin
PInteger(lparam)^ := hwnd;
Result:=False;
end;
end;
var
Handle: Integer;
buffer: Array[0..1023] of Char;
begin
Handle := FindWindow(nil,'Inventory of Existing Chemical Substances in China'); //就是窗口的Caption
if Handle<>0 then
begin
EnumChildWindows(Handle,@EnumChildWindowsProc,Integer(@Handle));
SendMessage(Handle,WM_SETTEXT,0,Integer(pchar('Your String')));
end;
end;
to hryyx
我用了里面的 "win窗口" 不行
我先用 WM_SETTEXT 然后用 WM_GETTEXT 可以得到 'Your String'
但就是得不到他上面显示的文本,有谁知SUBWND是什么。