03.03.2006, 16:21
|
|
Администратор
|
|
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,564
Версия Delphi: Delphi 7
Репутация: выкл
|
|
Код:
var
dc: hdc;
Bmp: TBitmap;
begin
dc:=GetWindowDC(GetDesktopWindow);
try
Bmp:=TBitmap.Create;
try
Bmp.Width:=Screen.Width;
Bmp.Height:=Screen.Height;
BitBlt(Bmp.Canvas.Handle,0,0,Screen.Width,Screen.Height,DC,0,0,SRCCOPY);
Bmp.SaveToFile('c:\tmp\1.bmp');
finally
Bmp.Free;
end;
finally
ReleaseDC(GetDesktopWindow, dc);
end;
Image1.Picture.LoadFromFile('c:\tmp\1.bmp');
end;
Дальше сам...
|