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

← →
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;

Тогда уж

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

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

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

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