Как найти окно с названием "Служба сообщений"??? [D6, WinXP]
Volf_555 © (2006-02-11 17:45:00)
Для этого писал:
procedure TForm1.Button1Click(Sender: TObject);
var
s,s1:Integer;
begin
s:=FindWindow(nil,'Служба сообщений');
if s<>0 then
begin
edit1.Text:='Найдено!';
s1:=FindWindowEx(s,0,'label',nil);
if s1<>0 then
memo1.Text:=GetText(s);
end else
edit1.Text:='';
end;
В результате чего, даже если это окно присутствует на экране
функция возвращает НУЛЬ! Что здесь может быть не так?!
P.S.:
'Служба сообщений'- это заголовок стандартного
сообщения, отправленного при помощи команды:
net send IP_Адрес Ваше сообщение
Volf_555 (2006-02-11 17:50:00) [1]
P.S.: функция GetText:
function TForm1.GetText(WindowHandle: hwnd): string;
var
txtLength: integer;
buffer: string;
begin
TxtLength := SendMessage(WindowHandle,
WM_GETTEXTLENGTH, 0, 0);
txtlength := txtlength + 1;
setlength(buffer, txtlength);
sendmessage(WindowHandle, wm_gettext, txtlength,
longint(@buffer[1]));
result := buffer;
end;
Наверх 
ЧАТ |
Орешник |
|
