Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];

Вниз

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;

---

← →
Skier   (2003-08-21 09:11) [5]

>Babay © (21.08.03 09:09) [4]
+ ReleaseDC(...)

---

← →
Babay   (2003-08-21 09:54) [6]

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

---

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

Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c