[non VCL] - Fehler bei WM_GETTEXT

[Rastaman]

es geht sogar einfacher

Delphi-Quellcode:

var
  s: PChar;
//...
  edit1 := GetDlgItem(hwnd, 1);
  edit2 := GetDlgItem(hwnd, 2);
  Length := SendMessage(edit1, WM_GETTEXTLENGTH, 0, 0) + 1;
  SendMessage(edit1, WM_GETTEXT, Length, Integer(@s));
  SendMessage(edit2, WM_SETTEXT, Length, Integer(@s));

Es funktioniert auch wenn s: Array [0..1] of Char; is, was ich irgendwie nich verstehe ^^