anderes program auslesen

[napstar]

hi.. hab mal ne frage..
ist es möglich den inhalt von einer messagebox von anderen programmen in ein memo anzuzeigen..
ich wollte eigendlich den inhalt von einem MSN Chatfenster in ein Memo anzeigen ^^.
hab im internet leider nix gefunden...
kann aber auch an meiner suchweise liegen :D..
ich hoffe ihr könnt mir helfen und bedanke mich jetzt schon.

[sirius]

Dies ist durchaus möglich. Muss aber nicht sein.

Zuerst solltest du mal mit Winspector (oder spy++) dir die "Zusammensetzung" deines Chat-Fensters ansehen.
Es könnte sich letztenendes um den Befehl LVM_GetItemText oder ähnliches handeln.

[Luckie]

Wenn es nur eine MessageBox ist:

Delphi-Quellcode:

function GetMessageBoxTextByCaption(const Caption: String): String;
const
  ID_STATIC = $0000FFFF;
var
  hMsgBox: THandle;
  len: Integer;
  Buffer: PChar;
begin
  hMsgBox := FindWindow(nil, PChar(Caption));
  if hMsgBox <> 0 then
  begin
    len := SendMessage(GetDlgItem(hMsgBox, ID_STATIC), WM_GETTEXTLENGTH, 0, 0);
    if len > 0 then
    begin
      GetMem(Buffer, len + 1);
      try
        GetDlgItemText(hMsgBox, ID_STATIC, Buffer, len + 1);
        SetString(Result, Buffer, len + 1);
      finally
        FreeMem(Buffer);
      end;
    end;
  end;
end;

[Timi-loader]

wie kann ich nun das konkret auslesen? also es ist wies aussieht ja keine einfache listbox.

Winspector meint es ist: DirectUIHWND (also der classname)
und es liegt noch in dem andern fenster drinnen, falls das was ausmachane sollte. handle des äußeren fensters kann ich auch bekommen das ist nicht das prob.

mfg

[Apollonius]

Wenn du das Handle des äußeren Fensters hast, wieso nimmst du nicht findWindowex, um das gesuchte Fenster zu finden? Dann brauchst du nur noch ein WM_GETTEXT zu schicken und du bist fertig.

[ghost007]

hey,
hab mich mit dem thema auch schon des öfteren rumgeschlagen, aber irgendwie bin ich nie durchgestiegen wie ich jetzt wirklich anhand des handles des hauptfensters, inhalte von komponenten des fensters auslesen kann. gibt es da vielleicht ein anschauliches tutorial?

MfG - Ghost007

[Timi-loader]

so ich hab mal nach dem rat von Apollonius folgendes erstellt:

Delphi-Quellcode:

var h: HWND;
   text,classname:String;
begin

h:=GetForegroundWindow;

SetLength(text,SendMessage(h,WM_GETTEXTLENGTH,0,0)+1);
SendMessage(h,WM_GETTEXT,length(text),Integer(@text[1]));

SetLength(ClassName, 255);
      //get the class name and reset the
      //memory area to the size of the name
      SetLength(ClassName,
              GetClassName(h,
                           PChar(className),
                           Length(className)));


edit1.Text:=classname;
edit2.Text:=text;

h :=  FindWindowEx(h, 0, 'DirectUIHWND', nil);

SetLength(text,SendMessage(h,WM_GETTEXTLENGTH,0,0)+1);
SendMessage(h,WM_GETTEXT,length(text),Integer(@text[1]));

SetLength(ClassName, 255);
      //get the class name and reset the
      //memory area to the size of the name
      SetLength(ClassName,
              GetClassName(h,
                           PChar(className),
                           Length(className)));

edit3.Text:=classname;
edit4.Text:=text;
memo1.Text:=text;
end;

das wird per timer aufgerufen und dann sieht man immer das aktuelle fenster. (da ich genau das ja auchnur später brauch)

aber beim DirectUIHWND gibt es keine ausgabe bei text. nix zu sehen..
kann man noch anders den inhalt ermitteln?

mfg

p.s.: also mit dem notepad und dann dort drinn editor(also anstatt directuihwnd) klappt das. da bekommt man eine ausgabe.

[ghost007]

der code is genial ^^, vorallem ich versteh nen sogar :) danke
Bei deinem problem kann ich dir leider nich weiterhelfen

MfG - Ghost007

P.S.: guade nacht ;)

[Luckie]

Wird das Fenster denn gefunden?

[Timi-loader]

gutn morgen.

jo fenster wird gefunden. also handle ist beidemale <> 0 (wenn ich msn aktiv habe)

mfg

EDIT: mir kam die idee, dass vllt ja auch einfach mehrere der selben komponente drinnen sind. vllt ist ja die die ich dann grad bekomme leer. wie kann ich eine schleife baun die alle inneren komponenten (alle oder einer art) durchgeht? (also z.b. ne fensterschleife ging ja mit h := getnextwindow(h, GW_HWNDNEXT); )

EDIT2: ich hab mal probiert ein listview meines andern eigenen programmes auszulesen. bekomme ich auch nicht hin. gibt es nicht noch nen andern befehl? statt WM_GETTEXT wäre sowas gut WM_GETRAWDATAB*g*