Надпись на рабочем столе

@MrAndy · Регистрация: 27.06.2010

Студворк — интернет-сервис помощи студентам

Добрый час, форумчане.

Вот хочу средствами Билдера, сделать надпись на рабочем столе. Наподобии той, что показывает версию Windows в углу над часами. Средствами реестра не получается, т.к. там только сам параметр PaintDesktopVersion либо вкл либо выкл. Саму строку для замены не знаю где искать.

Может кто знает секрет этой надписи? Как её заменить, или вообще сделать свою?

P.s. Хочу выводить туда имена компьютеров пользователей своей сети. А то с некоторыми приходится долго трепаться по телефону, рассказывая как посмотреть это имя.

Добавлено через 17 часов 23 минуты
Понимаю задачка непосильная...

Вот думал сделать форму приложения прозрачной, но если она будет постоянно висеть в углу рабочего стола, то получается что эта область не будет доступной для пользователя (для хранения значков, папок).

@NiTan · 28.06.2010, 12:37

Вот пример, только нужно сделать так, чтобы окно всегда находилось позади остальных окон, как это делать я не помню....

@NiTan · 28.06.2010, 12:37

Да, как узнать имя пользователя я тоже не помню.

@MikeSoft · 28.06.2010, 12:38

Вывести текст на рабочем столе можно так:

C++
1
2
3
4
const char str[] = "Текст на рабочем столе";
HDC DC = CreateDC(TEXT("DISPLAY"), NULL, NULL, NULL);
TextOut(DC,10,10,str,strlen(str));
DeleteDC(DC);

@NiTan · 28.06.2010, 12:39

MikeSoft, а надпись сотрется, при перерисовке рабочего стола.

@MikeSoft · 28.06.2010, 12:42

Nitan, так разве ж это проблема?

C++
1
2
3
4
5
6
7
8
const char str[] = "Текст на рабочем столе";
while (true) {
  HDC DC = CreateDC(TEXT("DISPLAY"), NULL, NULL, NULL);
  TextOut(DC,10,10,str,strlen(str));
  DeleteDC(DC);
  Sleep(50);
  Application->ProcessMessages();
}

@NiTan · 28.06.2010, 12:45

MikeSoft, ага, и все время перерисовывать? Ну, не знаю, может и пойдет так, а может и нет.

@MikeSoft · 28.06.2010, 12:57

Nitan, от перерисовки в любом случае не получится избавиться. (это уже надо заменять WM_PAINT для рабочего стола... лично я против таких действий)

Разве что, можно ещё баловаться с канвой ...

@NiTan · 28.06.2010, 13:11

MikeSoft, решать не нам, пусть MrAndy сделай выбор сам. Мы ему предложили 2 варианта.

@MikeSoft · 28.06.2010, 13:21

Nitan,

верно!
Я даже ещё предложу идею с канвой:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
TCanvas * DTop = new TCanvas;
if (DTop) {
  DTop->Handle = GetDC(HWND_DESKTOP);
  DTop->Brush->Style = bsClear;
  DTop->Font->Size = 14;
  DTop->Font->Style = TFontStyles() << fsBold;
  DTop->Font->Name = "Lucida Console";
  DTop->Font->Color = (TColor)RGB(255,0,0);
  DTop->TextOut(10,10,"MikeSoft");
 
  ReleaseDC(0, DTop->Handle);
}
delete DTop;

@NiTan · 28.06.2010, 13:24

MikeSoft, а как сделать так, чтобы форма всегда находилась позади всех окон?

@MikeSoft · 28.06.2010, 13:36

Nitan, изменить положение окна можно с помощью SetWindowPos:

C++
1
SetWindowPos(Handle,HWND_BOTTOM,Left,Top,Width,Height,SWP_NOMOVE||SWP_NOSIZE||SWP_SHOWWINDOW);

@MrAndy · 29.06.2010, 05:09 **[ТС]**

Спасибо всем за советы.

Что-то про TextOut я даже не подумал. Но сделал свой вариант программы.

Сделал форму полупрозрачной. Поставил AutoSize на Label (где выводится имя компа) и на саму форму, чтоб вытягивалась в зависимости от размера компонента Label.

Затем используя размеры РАБОЧЕЙ области экрана, устанавливаю расположения формы в углу, над панелью задач. Самой форме запретил перемещение и ресайз.

C++
1
2
Form1->Top = Screen->WorkAreaHeight - Form1->Height;
Form1->Left = Screen->WorkAreaWidth - Form1->Width;

Ну и выглядит вполне прилично

10-ым шрифтом висит надпись в углу экрана, на полупрозрачном фоне

Ну а далее, конечно же, запретил закрытие формы по Alt+F4 и скрыл кнопку программы из панели задач.

C++
1
2
3
4
if (Key == VK_F4 && Shift.Contains(ssAlt))
        {
                Key = 0;
        }

и

C++
1
2
3
4
5
6
void __fastcall TForm1::FormShow(TObject *Sender)
{
 
//Скрываем программу из панели задач
ShowWindow(Application->Handle, SW_HIDE);
}

Оказывается всё так просто.

Теперь думаю, а может лучше сделать просто иконку в трее, при наводке на которую и будет высвечиваться имя компьютера. Но опять же не исключено, что придётся тратить время и на это, объясняя пользователю что за иконка, где её искать и тд )))

@MrAndy · 02.07.2010, 12:17 **[ТС]**

А вот ещё вопрос.

Решил попробовать сделать через TextOut. Т.к. приложение получается меньшим весом в памяти.

В общем проблема в том, что не могу понять, как выведенный текст отображать ТОЛЬКО на рабочем столе, и только ПОЗАДИ всех окон?

Например, пользователь заходит по RDP на терминальный сервер, а этот TextOut отображается и поверх сессии. Ну или просто при работе с приложениями - надпись всегда поверх всего и вся.

Беру хэндл раб.стола, рисую текст на нём, но всёравно надпись перекрывает все окна.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@MrAndy 0 / 0 / 0 Регистрация: 27.06.2010 Сообщений: 5

	Надпись на рабочем столе 28.06.2010, 12:01. Показов 12350. Ответов 13 Метки нет (Все метки) Добрый час, форумчане. Вот хочу средствами Билдера, сделать надпись на рабочем столе. Наподобии той, что показывает версию Windows в углу над часами. Средствами реестра не получается, т.к. там только сам параметр PaintDesktopVersion либо вкл либо выкл. Саму строку для замены не знаю где искать. Может кто знает секрет этой надписи? Как её заменить, или вообще сделать свою? P.s. Хочу выводить туда имена компьютеров пользователей своей сети. А то с некоторыми приходится долго трепаться по телефону, рассказывая как посмотреть это имя. Добавлено через 17 часов 23 минуты Понимаю задачка непосильная... Вот думал сделать форму приложения прозрачной, но если она будет постоянно висеть в углу рабочего стола, то получается что эта область не будет доступной для пользователя (для хранения значков, папок). 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	28.06.2010, 12:37
	Да, как узнать имя пользователя я тоже не помню. 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	28.06.2010, 12:39
	MikeSoft, а надпись сотрется, при перерисовке рабочего стола. 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	28.06.2010, 12:45
	MikeSoft, ага, и все время перерисовывать? Ну, не знаю, может и пойдет так, а может и нет. 0

@MikeSoft 3957 / 1812 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	28.06.2010, 12:57
	Nitan, от перерисовки в любом случае не получится избавиться. (это уже надо заменять WM_PAINT для рабочего стола... лично я против таких действий) Разве что, можно ещё баловаться с канвой ... 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	28.06.2010, 13:11
	MikeSoft, решать не нам, пусть MrAndy сделай выбор сам. Мы ему предложили 2 варианта. 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	28.06.2010, 13:24
	MikeSoft, а как сделать так, чтобы форма всегда находилась позади всех окон? 0

@MrAndy 0 / 0 / 0 Регистрация: 27.06.2010 Сообщений: 5
	02.07.2010, 12:17 [ТС]
	А вот ещё вопрос. Решил попробовать сделать через TextOut. Т.к. приложение получается меньшим весом в памяти. В общем проблема в том, что не могу понять, как выведенный текст отображать ТОЛЬКО на рабочем столе, и только ПОЗАДИ всех окон? Например, пользователь заходит по RDP на терминальный сервер, а этот TextOut отображается и поверх сессии. Ну или просто при работе с приложениями - надпись всегда поверх всего и вся. Беру хэндл раб.стола, рисую текст на нём, но всёравно надпись перекрывает все окна. 0