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

Вниз

Как из своей программы написать сообщение на рабочем столе   Найти похожие ветки 

← →
Aleks ©   (2005-02-25 17:56) [0]

Доброго времени суток
Как из своей программы написать текст или нарисовать на рабочем столе виндов.

---

← →
kami ©   (2005-02-25 19:12) [1]

TextOut(GetWindowDC(GetDesktopWindow),100,100,"Thom",4);    

Поверх всех окон можно нарисовать надпись использую следующую процедуру:

procedure WriteDC(s: string);
var c: TCanvas;
begin
 c := TCanvas.Create;
 c.Brush.Color := clBlue;
 c.Font.color := clYellow;
 c.Font.name := "Fixedsys";
 c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
 c.TextOut(screen.Width - c.TextWidth(s) - 2, screen.Height - 43, s);
 c.free;
end;

Взято с Delphi Knowledge Base

---

← →
dimaxx ©   (2005-02-25 21:27) [2]

Вместо GetWindowDC(GetDesktopWindow) можно писать просто GetDC(0).

---

← →
Aleks ©   (2005-02-25 21:44) [3]

Спасибо всё ок.

---

← →
partizan   (2005-02-25 23:45) [4]

GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
try
//...
finally
 ReleaseDC(0,c.Handle);
end;

---

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

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

Наверх

Память: 0.44 MB
Время: 0.033 c