Question

sendmessage WM_GETTEXT delphi 这个！~~

procedure TForm1.Button1Click(Sender: TObject);
var
a : Hwnd;
tt: string;
begin
a:= findwindow(nil,'新建 文本文档.txt - 记事本');
a:= findwindowex(a,0,'edit',nil);
sendmessage(a,WM_GETTEXT, 255, LongInt(tt));
memo1.Text := tt;

end;

//为什么这个得不到记事本里的内容呢？
记事本里有文字，

Answer 1

a:= findwindowex(a,0,'edit',nil);
返回的结果可能为0，所以取不到

Answer 2

试试:SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SENDWININICHANGE);