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

Вниз

Как быстрее всего зделать скриншорт   Найти похожие ветки 

 
Чайник Д   (2003-10-25 23:06) [0]

Как быстрее всего зделать скриншорт.Знаю есть такое BitBLT, но как с ним работать? Буду очень благодарен.


 
wicked ©   (2003-10-25 23:15) [1]

var bitmap: TBitmap;
dc: HDC;
w, h: integer;
begin
try
bitmap := TBitmap.Create;
w := GetSystemMetrics(SM_CXSCREEN); // ширина экрана
h := GetSystemMetrics(SM_CYSCREEN); // высота экрана
bitmap.Width := w;
bitmap.Height := h;
dc := GetDC(0);
BitBlt(bitmap.Canvas.Handle, 0, 0, w, h, dc, 0, 0, SRCCOPY);
....
{ сохраняем скриншот }
....
finally
if dc <> 0 then ReleaseDC(0, dc);
bitmap.Free;
end;
end;


 
Чайник Д   (2003-10-25 23:22) [2]

Спасибо



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

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

Наверх




Память: 0.46 MB
Время: 0.023 c
4-42283
Alek Aaz
2003-09-09 17:06
2003.11.13
Универсальный запуск программы?


4-42294
MishaS
2003-09-09 18:36
2003.11.13
Как програмновызвать окно Установка и Удаление программ


1-41301
Volly
2003-11-02 16:01
2003.11.13
Процедуры в DLL файлах


8-41761
AlexRush
2003-07-07 15:05
2003.11.13
Звуковая карта - настройка и съём входящего потока


4-42227
DNT
2003-09-01 18:25
2003.11.13
Помогите получить пути к открытым файлам.