Форум: "WinAPI";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];
ВнизКак найти окно с названием "Служба сообщений"??? Найти похожие ветки
← →
Volf_555 (2006-02-11 17:45) [0]Для этого писал:
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) [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;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c