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;

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

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