Memo Text von anderem Fenster in das Memo meines programms

**Pseudemys Nelsoni**

hoi,

also das "teil" das den text im spiel hat ist eine ListBox (laut resourcen hacker).
Ich habe dein beispiel mal angepasst gehabt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  hList, WND: HWND;

  len: integer;

  Buffer: PChar;

begin

  WND := FindWindow(nil, 'Tiberian Sun');

  hList := FindWindowEx(WND, 0, 'LISTBOX', nil);

  len := SendMessage(hList, WM_GETTEXTLENGTH, 0, 0);

  GetMem(Buffer, len+1);

  try

    SendMessage(hList, LB_GETTEXT, len+1, Integer(@Buffer));

    Memo1.Text := String(Buffer);

  finally

    FreeMem(Buffer, len+1);

  end;

end;

ich weiss nicht ob "LB_GETTEXT" richtig war, aber wenn ich den button drücke bekomme ich im memo nichts weiter ausser "&E" angezeigt, woher kommt das?

Memo Text von anderem Fenster in das Memo meines programms

Re: Memo Text von anderem Fenster in das Memo meines program

Forumregeln