Текущий архив: 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.45 MB
Время: 0.008 c