Nachrichtendienst (Fenster auslesen)q

Gast Erhaltene Danke: 1

Hallo,

ich habe mal wieder ein kleines Problem:

wie kann ich das Nachrichtenfenster auslesen bevor ich es mit

SendMessage(FindWindow(nil,'Nachrichtendienst '),WM_Close,0,0);wieder schließe....

ich brauche es für eine Externe anwendung....weil netsend ist garnicht mal so schlecht um nachrichten zu versenden....

Ehemaliges Mitglied Erhaltene Danke: 1

Das Label mit dem Text hat die ID -1, wenn ich mich richtig entsinne. Mit GetDlgItem holst du dir das Handle und mit WM_GETTEXT den Inhalt.

Gast Erhaltene Danke: 1

kennt jemand den code dafür?

Gast Erhaltene Danke: 1

oder wenigstens nen ansatz

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var
  hWnd, hLabel: Cardinal;
  buffer: array [0..255] of Char;
begin
  hWnd := FindWindow(nil, 'Nachrichtendienst ');
  hLabel := GetDlgItem(hWnd, -1);
  SendMessage(hLable, WM_GETTEXT, sizeof(buffer), Integer(@buffer));
  ShowMessage(String(buffer));

Ungetestet aus dem Kopf.

Gast Erhaltene Danke: 1

ja gut, jetzt finde ich wenigstens das Handle, lag wohl an dem leerzeichen....

nur leider bekomme ich immer noch nicht heraus wie ich nun die nachricht aus dem nachrichtenfesneter auslesen kann.....

please help....

Ehemaliges Mitglied Erhaltene Danke: 1

OK, da du offensichtlich zu der "Copy and Paste"-Fraktion gehörst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
var
  hWnd, hLabel: Cardinal;
  buffer: array[0..255] of Char;
begin
  hWnd := FindWindow(nil, 'Nachrichtendienst ');
  hLabel := GetDlgItem(hWnd, $0000FFFF);
  SendMessage(hLabel, WM_GETTEXT, sizeof(buffer), Integer(@buffer));
  ShowMessage(string(buffer));
end;

Gast Erhaltene Danke: 1

danke....

bin halt nocht nicht so geübt in delphi.....

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme