Text aus ShowMessage

[glkgereon]

ich krieg das net hin...

also hier erstmaln versuch wies aber leider net geht

Delphi-Quellcode:

procedure FindAllSubs(Main: THandle; Buffer: array of THandle);
var i:integer;
begin
  i:=1;
  Buffer[i]:=FindWindowEx(Main,0,nil,nil);
  while FindWindowEx(Main,Buffer[i],nil,nil)<>0 do
    begin
    Buffer[i+1]:=FindWindowEx(Main,Buffer[i],nil,nil);
    inc(i);
    end;
end;

is denn wenigstens das korrekt?

Delphi-Quellcode:

var Buf: array of Char;
    Buf2: String;
begin
SetLength(Buf,SendMessage(Sub,WM_GETTEXTLENGTH,0,0));
SendMessage(Sub,WM_GETTEXT,sizeof(Buf),Integer(@buf2));
ShowMessage(Buf2);