Текущий архив: 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
