| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

GetWindowText, GetNextWindow

Delphi5.01 ©   (2003-07-31 19:09:00) 

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.

---

Axis_of_Evil   (2003-08-01 13:36:00) [1]

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

---

Delphi5.01   (2003-08-01 13:36:00) [2]

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

---

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


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


---

Delphi5.01   (2003-08-01 13:32:00) [4]

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!

---

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

> ( Wnd,St,Len+1)

> St: PChar;


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

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

---

Наверх