| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как из своей программы написать сообщение на рабочем столе [D7, WinXP]

Aleks ©   (2005-02-25 17:56:00) 

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

---

partizan   (2005-02-25 23:45:00) [1]

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

---

Aleks   (2005-02-25 21:44:00) [2]

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

---

dimaxx   (2005-02-25 21:27:00) [3]

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

---

kami   (2005-02-25 19:12:00) [4]

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

---

Наверх