procedure GetScreenshot;
var
i, j: integer;
DesktopBitmap: TBitmap;
begin
//получаем битмап десктопа
DesktopBitmap := TBitmap.Create;
with DesktopBitmap do
begin
Width := Screen.Width;
Height := Screen.Height;
end;
BitBlt(DesktopBitmap.Canvas.Handle,
0,0,Screen.Width,Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SrcCopy);
//...
DesktopBitmap.Free;
end;
Скриншоты
О великие кодеры обрашаюсь к вам в своих молитвах ...подскажите мне ктонибудь как снять скрин с десктопа и закатать всё это дело в формат
JPG.. ну или хотябы как установить нужное мне расширение при снятии скриншота ... да и вообше если не трудно поделитесь всем что есть по этой теме что бы форум не хламить пишите на мыл ))) [email]alekseivvv@nm.ru[/email] заранее благодарен
JPG.. ну или хотябы как установить нужное мне расширение при снятии скриншота ... да и вообше если не трудно поделитесь всем что есть по этой теме что бы форум не хламить пишите на мыл ))) [email]alekseivvv@nm.ru[/email] заранее благодарен
Цитата:
Originally posted by Aleksei
О великие кодеры обрашаюсь к вам в своих молитвах ...подскажите мне ктонибудь как снять скрин с десктопа и закатать всё это дело в формат
JPG.. ну или хотябы как установить нужное мне расширение при снятии скриншота ... да и вообше если не трудно поделитесь всем что есть по этой теме что бы форум не хламить пишите на мыл ))) [email]alekseivvv@nm.ru[/email] заранее благодарен
О великие кодеры обрашаюсь к вам в своих молитвах ...подскажите мне ктонибудь как снять скрин с десктопа и закатать всё это дело в формат
JPG.. ну или хотябы как установить нужное мне расширение при снятии скриншота ... да и вообше если не трудно поделитесь всем что есть по этой теме что бы форум не хламить пишите на мыл ))) [email]alekseivvv@nm.ru[/email] заранее благодарен
Что-то не совсем понятно в чем проблема. Как снять скриншот или как сохранить его в jpeg?
1. Как снять скриншот - юзаем поисковик и в итоге:
Код:
2. Сохранить в jpeg - подключаем модуль Jpeg смотрим Help по TJPEGImage.
Всё проблема почти решена большое спасибо разобрался