Текущий архив: 2006.04.30;
Скачать: CL | DM;

Вниз

Как найти окно с названием "Служба сообщений"???   Найти похожие ветки 

← →
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 вся ветка

Текущий архив: 2006.04.30;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.047 c