Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.039 c
6-1105033797
Progh
2005-01-06 20:49
2005.03.13
Ошибка при отсылке письма через idSMTP


6-1105183435
Iraizor
2005-01-08 14:23
2005.03.13
Программно закрыть сетевое соединение?


9-1102787249
MsShtaer
2004-12-11 20:47
2005.03.13
High Dunamic Range Image или по-просту HDRI


14-1108784018
Doxygen
2005-02-19 06:33
2005.03.13
Знатокам HTML


1-1109565114
AAAAA
2005-02-28 07:31
2005.03.13
Как можно отобразить дерево?