Desktop

← →
Lina (2003-08-21 07:21) [0]

Подскажите пожайлуста как сделать Screen рабочего стола

← →
Zergling © (2003-08-21 07:28) [1]

PrintScreen, CopyRect

← →
Lina (2003-08-21 07:33) [2]

А можно с примером , пожайлуста, ну очень нужно

← →
Skier © (2003-08-21 09:05) [3]

>Lina (21.08.03 07:21)
Что есть Screen рабочего стола ?
Поясни...

← →
Babay © (2003-08-21 09:09) [4]

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
DeskTopCanvas: TCanvas;
BitMap: TBitMap;
begin
BitMap := TBitMap.Create;
DeskTopCanvas:=TCanvas.create;
DeskTopCanvas.Handle := GetDC(Hwnd_Desktop);

BitMap.Width := Screen.Width;
BitMap.Height := Screen.Height;
Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
DeskTopCanvas, DeskTopCanvas.ClipRect);

// все копия экрана в BitMap

..... Делаем че надо ....

// незабудем уничтожить созданные объекты
BitMap.free;
DeskTopCanvas.free;
end;

Ага точно, забыл сори.

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