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)));

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

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

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