0
Cerera
26.09.13
✎
09:34
|
Если я администратор терминального сервера и мне нужно чтоб все сообщения отправляемые пользователями друг другу, где то в виде логов оседали, то что мне делать? специальную программу для перехвата писать или уже есть готовые средства?
|
|
5
Ёпрст
26.09.13
✎
09:47
|
(2)
//------------------ Функция получения текста --------------------------
function GetText(WindowHandle: hwnd):string;
var
txtLength : integer;
buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
if txtlength>0 then
begin
txtlength := txtlength + 1;
setlength (buffer, txtlength);
sendmessage(WindowHandle, wm_gettext, txtlength, longint(@buffer[1]));
result := buffer;
end else result:='';
end;
//-------------- Ищем окно и выводим с него текст ----------------------
RichEdit2.Text:=GetText(FindWindowEx(FindWindow(nil,'Messenger Service '),0,'Static',nil));
©найдено за 2 минуты поиска, пишу, мало ли ты в бане у гугла
|
|