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

Вниз

GetWindowText, GetNextWindow   Найти похожие ветки 

 
Delphi5.01 ©   (2003-07-31 19:09) [0]

Dobroe vrema sutok!
Gde naxoditsa oshibka?

var Wnd: HWnd;
Len: Integer;
St: PChar;
begin
Wnd:=FindWindow("Notepad",nil);
Len:=GetWindowTextLength(Wnd)+1;
//procedura IntToStr obiazatelno doljna prisudstvovat, esli ia
//uberau etu stroku to poluchau ne pravilni tekst okna, vopros
//pochemu?
IntToStr(Len);
GetWindowText(Wnd,St,Len+1);
ShowMessage(St);

While Wnd<>0 do
begin
Wnd:=GetNextWindow(Wnd,GW_HWNDNEXT);
Len:=GetWindowTextLength(Wnd)+1;
IntToStr(Len);
GetWindowText(Wnd,St,Len+1);
ShowMessage(St);
end;


pri zavershenii proceduri programma vidaot oshibku tipa ..Read Only.. i ovarino zakrivaet prilojenie! pochemu?
Spasibo.


 
Игорь Шевченко ©   (2003-07-31 19:14) [1]


> ( Wnd,St,Len+1)

> St: PChar;


> GetWindowText(Wnd,St,Len+1);

Память под строку Пушкин будет выделять ?


 
Delphi5.01 ©   (2003-08-01 13:32) [2]

Nu a kak esli ne pushkin, kak eto mojno osushestvit? kstati takoi otvet ia uje pol goda tomu nazad poluchal!
Esli mojno primer videlenia pamiati.
Spasibo!


 
ZrenBy ©   (2003-08-01 13:35) [3]


var S:String;
begin
SetLength(S,SendMessage(Wnd,WM_GETTEXTLENGTH,0,0)+1);
SetLength(S,SendMessage(Wnd,WM_GETTEXT,Length(S),LPARAM(S)));


 
Axis_of_Evil ©   (2003-08-01 13:36) [4]

а не проще сказать st: array [0..255] of Byte;
и использовать @st?


 
Delphi5.01 ©   (2003-08-01 13:36) [5]

A proshe mojno
GetMem
Ni tak li? :-))))
Spasibo Vsem!



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
1-18301
ghg
2003-09-24 08:51
2003.10.06
получение имени файла запустившего приложение


1-18313
muzik
2003-09-23 18:29
2003.10.06
Редактор свойств


6-18519
FireMan_Alexey
2003-08-06 11:35
2003.10.06
Почему не происходит событие FD_CONNECT?


14-18617
Layner
2003-09-17 13:55
2003.10.06
Вебкамера = видеонаблюдение


4-18668
Pindos
2003-08-01 02:36
2003.10.06
Handle Активного Окна