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

Вниз

print Screen   Найти похожие ветки 

 
Odd_1 ©   (2002-11-13 00:22) [0]

как занести изображение рабочего стола в буфер, и сохранить его хотя бы в TBitmap ?


 
Diamond Cat ©   (2002-11-13 02:17) [1]

ну наверно что-то типа
var
dc:hdc;
bm:Tbitmap;
begin
dc:=getdc(getdesktopwindow());
bm:=tbitmap.create;
bm.canvas.handle:=dc;
bm.savetofile(тра-ля-ля);


 
BarikNT ©   (2002-11-13 03:00) [2]

Так помойму надёжнее и мона копировать часть экрана

procedure TForm1.Button1Click(Sender: TObject);
var
DeskTop : TCanvas ;
bm : TBitMap;
begin
DeskTop := TCanvas.Create ;
bm :=TBitMap.Create;
bm.Width:=screen.Width;
bm.Height:=screen.Height;
try
DeskTop.Handle := GetWindowDC (GetDesktopWindow) ;
bm.Canvas.CopyRect(Rect (0, 0, screen.Width, screen.Height),DeskTop,
Rect (0, 0, screen.Width, screen.Height));
bm.SaveToFile("d:\111.bmp");
finally
DeskTop.Free;
bm.Free
end
end;


 
Song ©   (2002-11-13 09:18) [3]

Сгенерируй VK_SNAPSHOT и достань картинку из буфера обмена.



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

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

Наверх




Память: 0.47 MB
Время: 0.015 c
1-86004
AFrolov
2002-12-15 10:10
2002.12.26
Как зная GUID узнать имя файла где объект с этим GUID находится?


6-86061
lefan
2002-10-31 14:44
2002.12.26
Многопотоковая закачка


7-86201
Як-40
2002-10-22 01:17
2002.12.26
Как узнать температуру забортом?


1-85883
vJet
2002-12-15 12:42
2002.12.26
Разделение файла


1-85965
Alpine
2002-12-15 17:53
2002.12.26
Как сделать Combobox неменяемым (Read Only) ?