Вывод надписи на рабочий стол

На рабочий стол можно вывести строку используя
TextOut(GetWindowDC(GetDesktopWindow),100,100,'Thom',4);

Автор: Fantasist
Взято с Vingrad.ru http://forum.vingrad.ru
Поверх всех окон можно нарисовать надпись использую следующую процедуру:

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;

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Взято с Vingrad.ru http://forum.vingrad.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...