Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.19;
Скачать: CL | DM;

Вниз

Возможно ли (вернее как это сделать) программно сделать скриншот   Найти похожие ветки 

 
Не скажу кто   (2003-05-05 08:34) [0]

Возможно ли (вернее как это сделать) программно сделать скриншот и сохранить его в BMP.


 
Babay ©   (2003-05-05 09:16) [1]

Примеры по дельфи в паке help


 
Кот Бегемот ©   (2003-05-05 09:43) [2]

Можно,но НЕ СКАЖУ КАК :)))


 
default ©   (2003-05-05 12:37) [3]

function ImageDesktopToBMP: TBitmap;
var
DtDC: HDC;
begin

Result := TBitmap.Create;
Result.Width := Screen.Width;
Result.Height := Screen.Height;
DtDC := GetDC(0);
BitBlt(Result.Canvas.Handle, 0, 0, Result.Width,
Result.Height, DtDC, 0, 0, SRCCOPY);
ReleaseDC(0, DtDC)

end;


 
viman   (2003-05-05 15:24) [4]

var bmp: TBitmap;
jpg: TJPEGImage;
begin
try
bmp := Screen.ActiveForm.GetFormImage;
jpg := TJPEGImage.Create;
jpg.CompressionQuality := 65;
jpg.Assign(bmp);
jpg.SaveToFile(fn+".jpg");
freeAndNil(jpg);
FreeAndNil(bmp);
except on EAccessViolation do ;
end;




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

Текущий архив: 2003.05.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
3-59639
Evyshka
2003-04-29 09:43
2003.05.19
Помогите пожалуйста составить запрос по количеству


3-59540
gala
2003-04-29 11:38
2003.05.19
работа с БД


14-59942
WM_IGOR
2003-04-26 19:37
2003.05.19
Компоненты из Builder в Delphi


4-59986
AlexRush
2003-03-18 13:25
2003.05.19
своя GetModuleHandle


14-59885
ZeroDivide
2003-04-28 17:01
2003.05.19
Кто нибудь писал софт для TV - Tuner на чипсете BT878?