Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.09;
Скачать: CL | DM;

Вниз

Виснет GetWindowsText...   Найти похожие ветки 

 
Cosmic ©   (2002-11-21 21:27) [0]

ФАКТ! Под 95 Виндовозом компилированый экзешник вываливается на функции GetWindowText... Причем в Delphi IDE всё чудесно работает, а вот отдельно - никак. Если кто знает - объясните, плиз...

И ещё. Может, можно как-то по-другому получить заголовок окна? Примеры приветствуются :)


 
Song ©   (2002-11-21 21:36) [1]

WM_GETTEXT


 
Cosmic ©   (2002-11-22 00:06) [2]

Да знаю я... Мне бы примерчик...
Я пробовал: SendMessage(HD,WM_GETTEXT,255,Buf);
ОНО пишет о несовместимости типов
Пробовал так: SendMessage(HD,WM_GETTEXT,255,Integer(Buf));
Ничего не возвращает

Что делать?


 
Almaz ©   (2002-11-22 00:26) [3]


> Cosmic © (22.11.02 00:06)
> Да знаю я... Мне бы примерчик...


var
Buffer: array [0..255] of Char;
...
SendMessage(Handle, WM_GETTEXT, SizeOf(Buffer), Integer(@Buffer));
ShowMessage(Buffer);


Удачи.


 
MBo ©   (2002-11-22 00:33) [4]

>ОНО пишет о несовместимости типов
А где ты указал, какой у тебя тип Buf???

procedure TForm1.Button1Click(Sender: TObject);
var h:thandle;
buf:array[0..200] of char;
begin
h:=findwindow("Notepad",nil);
if h<>0 then
SendMessage(h,wm_gettext,200,Integer(@buf));
Caption:=buf;
end;




Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.015 c
14-25019
Delirium
2002-12-19 16:32
2003.01.09
Download DevExpress QuantumGrid 4.0 For Delphi 7


3-24782
Брат
2002-12-11 11:23
2003.01.09
Хранимая процедура - замена значений null


4-25149
Diamond Cat
2002-11-19 01:17
2003.01.09
как подменить HDC


3-24793
menart
2002-12-16 15:10
2003.01.09
IBASE и 1С


7-25122
Lamer2000
2002-07-30 12:34
2003.01.09
Перехват нажати кнопки.