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

Previous  Top  Next

    
 

 

На рабочий стол можно вывести строку используя

 

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

 

 

©Drkb::03648

Автор: Fantasist

Взято с Vingrad.ru http://forum.vingrad.ru

 

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

 

Code:

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;

 

 

 

©Drkb::03649

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

Взято с Vingrad.ru http://forum.vingrad.ru