[Oleg]

Сделал прогу, а она, если нажать Ctrl+Alt+Delete постоянно увеличивает память, это что-то это значит ?
Использую графику, таймер.
Нужно ли обнулять какие-то переменные ?
Кусок кода:
...
procedure TForm1.Timer1Timer(Sender: TObject);
var
BMP1:Graphics.TBitmap;
DC1:HDC;
begin
BMP1:=Graphics.TBitmap.Create;
BMP1.Height:=Screen.Height;
BMP1.Width:=Screen.Width;
DC1:=GetDC(0);
BitBlt(BMp1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC1, 0, 0, SRCCopy);
BMP1.IgnorePalette:= True;
BMP1.SaveToFile('......')
end;
...
Помогите...

[Yurk@]

http://www.delphisources.ru/forum/sh... 0%EC%FF%F2%FC

[mav_c]

Сообщение от Oleg

Сделал прогу, а она, если нажать Ctrl+Alt+Delete постоянно увеличивает память, это что-то это значит ?
Использую графику, таймер.
Нужно ли обнулять какие-то переменные ?
Кусок кода:
...
procedure TForm1.Timer1Timer(Sender: TObject);
var
BMP1:Graphics.TBitmap;
DC1:HDC;
begin
BMP1:=Graphics.TBitmap.Create;
BMP1.Height:=Screen.Height;
BMP1.Width:=Screen.Width;
DC1:=GetDC(0);
BitBlt(BMp1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC1, 0, 0, SRCCopy);
BMP1.IgnorePalette:= True;
BMP1.SaveToFile('......')
end;
...
Помогите...

Вот так

Код:

ReleaseDC(0, DC1);
BMP1.Destroy();

[Oleg]

Спасибо за ответ