Hi!
Ich hab ein Prog geschrieben mit dem man Net send messages senden und empfangen kann.Das Problem ist, dass die Prozedur, die aufpasst ob ein message Fenster kommt, immer eine Leerzeile in das incomming-memo schreib wenn kein message-fenster da ist! (verstanden???)
Kann ich das irgendwie unterbinden oder die Zeilen direckt wieder löschen???
Delphi-Quellcode:
procedure TForm1.RefreshTimer(Sender: TObject);
var
hWnd, hStatic,
hButton : Cardinal;
buffer:
array[0..1024]
of Char;
begin
hWnd := FindWindow(
nil, '
Nachrichtendienst ');
{ man achte auf das Leerzeichen beim Fenstertitel }
if hWnd = INVALID_HANDLE_VALUE
then
exit
else
begin
{ Nachrichtendienst-Fenster finden }
hWnd := FindWindow(
nil, '
Nachrichtendienst ');
{man achte auf das Leerzeichen beim Fenstertitel }
if hWnd = INVALID_HANDLE_VALUE
then
exit;
{ Handle vom Label über die ID holen }
hStatic := GetDlgItem(hWnd, $FFFF);
{ Text klauen }
SendMessage(hStatic, WM_GETTEXT, sizeof(buffer), Integer(@buffer));
{ Anzeigen }
form1.mLog.Lines.Add(
String(buffer));
{ Handle vom Button holen }
hButton := GetDlgItem(hWnd, $2);
{ und drauf klicken 2x, sonst geht es nicht zu }
SendMessage(hButton, BM_CLICK, 0, 0);
SendMessage(hButton, BM_CLICK, 0, 0);
end;
end;
Greetz
ScullCollector
Zitat
Baum-Darstellung
