Хендл окна

[Михаил Юрьевич]

Ставлю в таймер с интервалом на 1 секунда код, но после 5-10 секунд работы , программа виснит, как исправить?

var
Caption: PChar;
Wnd: HWnd;
begin
Caption:= AllocMem(SizeOf(Byte));
Wnd:= GetForegroundWindow;
GetWindowText(Wnd, Caption, 255);
Form1.Memo1.Lines.Add(StrPas(Caption));
end;

[Аватар]

SizeOf(Byte) чему равно? Гарантировано не 255

[Stilet]

AllocMem то тут зачем?

var
Caption: array[1..255] of ansichar;
Wnd: HWnd;
begin
Wnd:= GetForegroundWindow;
GetWindowTextA(Wnd, @Caption[1], Length(Caption));
Form1.Memo1.Lines.Add(StrPas(Caption));
end;

И никаких танцев с памятью.

[f.hump]

AllocMem то тут зачем?

сто пудово.
особенно такой: AllocMem(SizeOf(Byte));

[Alex11223]

И без FreeMem.

[Михаил Юрьевич]

Всем спасибо! С праздником!