Вниз
Скачать: CL | DM;

Помогите разобраться с функцией   Найти похожие ветки 

← →
Alek ©   (2004-07-29 14:23) [0]

Есть функция GetWindowText, у нее три параметра
дскриптор окна
поинетр на буфер
и размер буфера

вот немогу разобраться с буфером, создал переменную

типа стрин
buf: string

а как на нее поинтер повесить?

GetWindowText(GetForegroundWindow,buf, 100);


← →
default ©   (2004-07-29 14:30) [1]

PStr = ^TStr;
TStr = Array[0..$FFFFFFFF] of Char;
можно, хотя этого не совсем точно положить, что String=PStr
тогда как будешь передавать Buf? ф-ции нужен Pointer на первый элемент массива


← →
default ©   (2004-07-29 14:32) [2]

TStr = Array[1..$FFFFFFFF] of Char;


← →
Alek ©   (2004-07-29 14:37) [3]

type
PStr = ^TStr;
TStr = Array[0..200] of Char;

var
buf: PStr;

GetWindowText(GetForegroundWindow,buf, 100);

или вот так?

GetWindowText(GetForegroundWindow,PStr, 100);

Прошу прощения но я неразу не работал с этим :(


← →
Anatoly Podgoretsky ©   (2004-07-29 14:58) [4]

Alek ©   (29.07.04 14:23)  
GetWindowText(GetForegroundWindow,buf[1], 100);


← →
default ©   (2004-07-29 15:03) [5]

const
 NeedMax = 50;

function GetTextWindow(WinHandle: THandle): String;
begin
 SetLength(Result, NeedMax);
 SetLength(Result, GetWindowText(WinHandle, PChar(Result), NeedMax));
end;


← →
ZrenBy ©   (2004-07-29 16:07) [6]

Тогда уж

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


← →
default ©   (2004-07-29 16:22) [7]

тогда
function GetTextWindow(WinHandle: THandle): String;
begin
 SetLength(Result, SendMessage(WinHandle, WM_GETTEXTLENGTH, 0,  0));
 GetWindowText(WinHandle, PChar(Result), Length(Result)));
end;


← →
GrayFace ©   (2004-07-31 18:30) [8]

function GetTextWindow(WinHandle: THandle): String;
begin
 SetLength(Result, SendMessage(WinHandle, WM_GETTEXTLENGTH, 0,  0)+1);
 GetWindowText(WinHandle, PChar(Result), Length(Result)));
end;



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c
1-1093779566
начинающий
2004-08-29 15:39
2004.09.12
TListBox.onCompare := MyCompare


3-1092386137
Вика
2004-08-13 12:35
2004.09.12
Проблема с текстовым полем...


3-1092339929
Сергей Плоткин
2004-08-12 23:45
2004.09.12
Огромный размер БД


1-1093514500
Piroman
2004-08-26 14:01
2004.09.12
Разыскивается wwIntl.dcu!


14-1093100431
dzmitry[li]
2004-08-21 19:00
2004.09.12
Simens CF62




   Наверх