Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];
Вниз
Рабочий стол Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c