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

Вниз

Рабочий стол   Найти похожие ветки 

← →
Iks ©   (2004-02-07 12:37) [0]

Hello All! Подскажите как сфоткать рабочий стол с курсором?

---

← →
Zew ©   (2004-02-07 12:55) [1]

Вопрсос замусоленный как...
Смотри в Faq или поисковиках

---

← →
Alexander666 ©   (2004-02-07 13:59) [2]

Первое, что пришло мне в голову:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
DC: HDC;
Canva: TCanvas;
Icona: TIcon;
Recta: TRect;
begin
DC := GetDC(0);
try
Canva := TCanvas.Create ;
Icona := TIcon.Create ;
try
Canva.Handle := DC;
Icona.Handle := Screen.Cursors[0];
Recta := Rect(0, 0, Screen.Width, Screen.Height);
Canvas.CopyRect(Recta, Canva, Recta);
Canvas.Draw(Mouse.CursorPos.X, Mouse.CursorPos.Y, Icona);
finally
Icona.Free ;
Canva.Free ;
end;
finally
DeleteDC(DC);
end;
end;


---

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

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

Наверх

Память: 0.46 MB
Время: 0.025 c