|
04.10.2013, 01:10
|
#1
|
|
|
|
Разведчик
|
Регистрация: 29.09.2013
Сообщений: 2
Популярность: 322
Сказал(а) спасибо: 0
Поблагодарили 15 раз(а) в 10 сообщениях
|
Делаем скриншот средствами Delphi
----------------------------------------------------------------------------------------------------------------------------------
Снимок экрана
----------------------------------------------------------------------------------------------------------------------------------
Код:
var
Canvas:TCanvas;
ScreenV:HDC;
begin
ScreenV := GetDC(0);
Canvas:=TCanvas.Create();
Canvas.Handle:=ScreenV;
Image1.Canvas.Copyrect(Rect(0,0,Image1.Width,Image1.Height),
Canvas, Rect(0,0,Screen.Width,Screen.Height));
ReleaseDC(0,ScreenV);
Canvas.Free;
Image1.Picture.SaveToFile('1.jpg');
----------------------------------------------------------------------------------------------------------------------------------
Код:
procedure GetWindowsScreen( PathToSave: string );
begin
with TBitmap.Create do
begin
Width := Screen.Width;
Height := Screen.Height;
BitBlt( Canvas.Handle, 0, 0, Width, Height, GetDC( GetDesktopWindow ), 0, 0, SRCCOPY );
if not DrawIcon(Canvas.Handle,Mouse.CursorPos.X,Mouse.CursorPos.Y,GetCursor) then
begin
end;
SaveToFile( PathToSave );
Free;
end;
end;
----------------------------------------------------------------------------------------------------------------------------------
Код:
uses: jpeg
function ScreenSCR(): TBitmap;
var
ScreenDC: HDC;
begin
Result := TBitmap.Create;
with Result do
begin
Width := Screen.width;
Height := Screen.height;
ScreenDC := GetDC( 0 );
try
BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC,
0, 0, SRCCOPY );
finally
ReleaseDC( 0, ScreenDC );
end;
end;
end;
Код:
function SCR(input:TBitmap):TJPEGImage;
begin
Result:=TJPEGImage.Create;
Result.Assign(input);
Result.CompressionQuality:=50;
Result.ProgressiveEncoding:=true;
Result.Compress;
end;
Код:
SCR(ScreenSCR).SaveToFile('1.jpg');
----------------------------------------------------------------------------------------------------------------------------------
Код:
DesktopCanvas:=TCanvas.Create;
DesktopCanvas.Handle:=GetDC(Hwnd_Desktop);
BitMap := TBitMap.Create;
BitMap.Width := Screen.Width;
BitMap.Height:=Screen.Height;
Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
DesktopCanvas, DesktopCanvas.ClipRect);
bitmap.SaveToFile(‘c:\windows\screen.bmp’);
|
|
|
Пользователь сказал cпасибо:
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 17:18.
|
|