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

Вниз

Как получить доступ к рабочему столу?   Найти похожие ветки 

← →
Kremen   (2003-07-23 14:11) [0]

Как получить доступ к рабочему столу? У меня когда-то пример был, можно было рисовать просто по экрану. А сейчас понадобилось и забыл. Подскажите, пожалуйста

---

← →
Yanis   (2003-07-23 14:20) [1]


procedure TForm1.DeskTopPaint(msg: string;LeftX:Integer;TopY:Integer);
var
DeskTop:TCanvas;
begin
DeskTop:=TCanvas.Create;
try
DeskTop.Handle:=GetDC(0);// Получим Handle Рабочего стола
DeskTop.Brush.Style:=bsClear; // Устанавливаем тип кисти
With DeskTop.Font do // Подбираем шрифт
Begin
Color:=clRed;
Size:=22;
Name:="Arial";
Style:=[fsBold];
end;
DeskTop.TextOut(LeftX,TopY,msg);
ReleaseDC(0, DeskTop.handle);
finally

procedure TForm1.DeskTopPaint(msg: string;LeftX:Integer;TopY:Integer);
var
DeskTop:TCanvas;
begin
DeskTop:=TCanvas.Create;
try
DeskTop.Handle:=GetDC(0);// Получим Handle Рабочего стола
DeskTop.Brush.Style:=bsClear; // Устанавливаем тип кисти
With DeskTop.Font do // Подбираем шрифт
Begin
Color:=clRed;
Size:=22;
Name:="Arial";
Style:=[fsBold];
end;
DeskTop.TextOut(LeftX,TopY,msg);
ReleaseDC(0, DeskTop.handle);
finally
DeskTop.Free; // Уберем за собой
end;
end;

Это по поводу как писать на экране. А вот рисовать:

PROCEDURE DrawOnScreen;
VAR ScreenDC: hDC;
BEGIN
ScreenDC := GetDC(0);
{получить контекст экрана}
Ellipse(ScreenDC, 0, 0, 200, 200);
{нарисовать}
ReleaseDC(0,ScreenDC);
{освободить контекст}
END;


А вообще: www.Yandex.ru

---

← →
Sunches   (2003-08-13 04:09) [2]

Господа, определитесь все-таки.
Рисовать на экране или на поверхности рабочего стола???

---

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

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

Наверх

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