Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.02.2011, 01:16   #11
TLabel
Пользователь
 
Аватар для TLabel
 
Регистрация: 02.01.2011
Сообщений: 30
По умолчанию

исвените за мою нескладную грамотность
и посмотрел бы я на того, кто вообще никогда не изучал его.

у нас в школе, вообще, отсутствует предмет "русский язык"
Я научился читать только по книгам программистов на русском языке.

зечас я писал под диктофку оца.
TLabel вне форума Ответить с цитированием
Старый 21.02.2011, 04:53   #12
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,242
По умолчанию

Не скриншот, но тоже вариант
Код:
var
  bm: TBitmap;
begin
  bm := TBitmap.Create;
  try
    bm.Height := ClientHeight;
    bm.Width := ClientWidth;
    PaintTo (bm.Canvas, -1, -1);
    bm.SaveToFile (<имя файла>);
  finally
    bm.Free;
  end;
end;
Sibedir вне форума Ответить с цитированием
Старый 22.03.2011, 22:39   #13
TLabel
Пользователь
 
Аватар для TLabel
 
Регистрация: 02.01.2011
Сообщений: 30
По умолчанию

спасибо всем

********************

Цитата:

var
Desktopcanvas :TCanvas ;
BitMap :TBitMap;
begin
DesktopCanvas:=TCanvas.Create;
DesktopCanvas.Handle:=GetDC(Hwnd_De sktop);
BitMap := TBitMap.Create;
BitMap.Width := Screen.Width;
BitMap.Height:=Screen.Height;
Bitmap.Canvas.CopyRect(Bitmap.Canva s.ClipRect,
DesktopCanvas, DesktopCanvas.ClipRect);
bitmap.SaveToFile('c:\windows\scree n.bmp');
image1.Picture.LoadFromFile('c:\win dows\screen.bmp');
end;
помогло!

*********************************** **********************

Цитата:
var
ScreenDC:HDC;
Canvas:TCanvas;
Image1:TImage;
begin
ScreenDC := GetDC(0);
Canvas:=TCanvas.Create();
Canvas.Handle:=ScreenDC;
Image1 := TImage.Create(nil);
Image1.Width := Screen.Width;
Image1.Height := Screen.Height;
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height));
ReleaseDC(0,ScreenDC);
Canvas.Free;
end;
ошибки при компиляции

*********************************** ****

Цитата:
var
DC : HDC;
Bmp : TBitmap;
begin
Bmp := TBitmap.Create;
try
DC := GetDC( 0 );
Bmp.SetSize( 100, 100 );
BitBlt( Bmp.Canvas.Handle, 0, 0, 100, 100, DC, 0, 0, SRCCOPY );
Bmp.SaveToFile( 'c:\test.bmp' );
ReleaseDC( 0, DC );
finally
Bmp.Free;
end;
end;
этот код тоже не компилируется

*********************************** *******

Цитата:
var
bm: TBitmap;
begin
bm := TBitmap.Create;
try
bm.Height := ClientHeight;
bm.Width := ClientWidth;
PaintTo (bm.Canvas, -1, -1);
bm.SaveToFile (<имя файла>);
finally
bm.Free;
end;
end;
без ошыбок
TLabel вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как можно вставить код C++ в Delphi 7 Владислав Общие вопросы Delphi 7 20.03.2012 20:05
Можно ли использовать TBitMap в потоке? TwiX Мультимедиа в Delphi 10 29.09.2010 21:20
Как сделать, чтобы форму можно было перемещать только внутри главной формы SeregaKo Общие вопросы Delphi 7 26.03.2009 12:48
Как вставить таймер в программу если нет формы durexa Помощь студентам 9 25.06.2007 13:13
RichEdit. как можно вставлять картинку туда? как можно Скрол програмно вниз двигать? Svop Компоненты Delphi 7 28.11.2006 21:07