Text aus fremden Memo auslesen

[Yheeky]

Mhmm, okay, danke. Ich habe es mehrere Male getestet, aber ich kam nicht zum gewünschten Ergebnis. Am besten ich poste mal den Code:

Code:

function ICQGetOwnerMessage(const Msg: String): Boolean;
  function FindMessageWindow(const Start: HWND): HWND;
  var
    H: HWND;
    S: PChar;
  begin
    Result := 0;
    H := Start;
    S := StrAlloc(256);
    while H > 0 do begin
      GetWindowText(H, S, 256);
      if (Pos('Change', S) > 0)
      and (Pos('Confirm', S) > 0)
      and (Pos('Message', S) > 0) then begin
        Result := H;
        Exit;
      end;
      H := GetNextWindow(H, GW_HWNDNEXT);
    end;
    StrDispose(S);
  end;

var
  H, I: HWND;
begin
  Result := False;
  H := FindMessageWindow(GetForeGroundWindow);
  if H = 0 then
    Exit;
  SetForeGroundWindow(H);
  I := GetNextDlgTabItem(H, 0, False);
  I := GetNextDlgTabItem(H, I, False);
  if I <> 0 then begin
  // HIER MUSS DOCH DER CODE REIN, ODER???

  Result := True;
  end;
end;

Wäre gut, wenn jemand den Code ergänzen könnte. Mit meinen Varianten hat´s nur teilweise geklappt. Übrigens wird bei mir WM_GETTEXT nicht gefunden! Nur SB_GETTEXT findet Delphi.

Gruß Yheeky