Цитата(WolfON @ 19.2.2006, 23:32  ) | | winexec('net send localhost RTFM!!',0); |
гыгы  каждый тик
Да, тема актуальна...
На текущий момент из всего что я перебрал наиболее стабильно работающим остаётся перебор (по таймеру 100..1000мс) всех окон.
| Код |
function GetWindText(AHandle:THandle):String;
var
cb:DWord;
begin
cb:=SendMessage(AHandle,WM_GETTEXTLENGTH,0,0);
SetLength(Result,cb);
if cb>0 then
SendMessage(AHandle,WM_GETTEXT,cb+1,LParam(@Result[1]));
end;
Form1.Timer1Timer
Begin
//Поиск окна
AHandle := FindWindow(PChar(#32770), nil);
if (AHandle <> 0) then
Begin
if GetWindText(AHandle)='Служба сообщений ' then
if GetExeNameByProcID(pProcID^)='CSRSS.EXE'then}
Begin
//Извлечение текста
AHandleChild := FindWindowEx(AHandle, 0, PChar(#49177), nil);
if (AHandleChild <> 0) then
CurStr := GetWindText(AHandleChild);
//Основная часть
if CurStr<>''then
Begin
if Pos('Сообщение от',CurStr) > 0 then
Begin
//PostThreadMessage(AHandle,WM_CLOSE,0,0);
PostMessage(AHandle,WM_CLOSE,0,0);
While Pos(#$D+#$A+#$D+#$A,CurStr) > -1 do
Delete(CurStr,MyPos(#$D+#$A+#$D+#$A,CurStr),2);//Удалить лишние строки
// CurStr - здесь текст сообщения
End;
End;
End;
End;
End;
//зы: возможно потребуется подключить ShellAPI или ещё чего....
|
Что не является красивым.
Люди! Не в лом, наваяйте, плиз, перехват создания окна, конкретно для нетсенда!
Ловушка, к-я перехватывает создание того же блокнота упорно не хочет переделыватся для перехвата нетсенда  может там как-то по другому действовать надо? |
Фигасе камрад.