Создадим приложение «Вывод текста вне окна приложения» для этого добавим всего один компонент - кнопку Button, при нажатии на которую строка текста будет написана на рабочем столе:

procedure TForm1.Button1Click(Sender: TObject);
var
DC: HDC;
Text: String;
begin
Text:='Язык программирования Delphi Круче всех!';
//получаем контекст устройства (Device Context)
DC:= GetWindowDC(GetDesktopWindow);
//устанавливаем прозрачность
SetBkMode(DC, TRANSPARENT);
//выводим текст
TextOut(DC,150, 150, PChar(Text), Length(Text));
// освобождаем контекст устройства
ReleaseDC(GetDesktopWindow, DC);
end;

Так будет работать приложение «Вывод текста вне окна приложения».

Приложение  Delphi «Вывод текста вне окна приложения»

 

 

Сначала мы получили контекст устройства при помощи функции GetWindowDC . Контекст устройства, в данном случае экрана, - это структура , с помощью которой происходит взаимодействие программы с устройством.
Вызов функции SetBkMode устанавливает для выводимой строки прозрачный фон (посмотрите что будет , если закомментировать эту строчку кода). Далее идёт функция TextOut , которая выводит строковую переменную Text на устройство с указанным контекстом DC начиная с точки с указанными координатами (150, 150). Надпись на экране в приложении «Вывод текста вне окна приложения» не перерисовывается автоматически , то есть когда содержимое экрана будет обновлено (в результате открытия какого либо окна), она не сохранится.

Скачать исходник «Вывод текста вне окна приложения» скачать…

Скачать исходник ««Вывод текста вне окна приложения» »:

 

Добавить комментарий


Защитный код
Обновить