Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.65/26: Рейтинг темы: голосов - 26, средняя оценка - 4.65
0 / 0 / 0
Регистрация: 02.01.2015
Сообщений: 40

Установка фона папки при ее создании

02.01.2015, 21:52. Показов 6500. Ответов 82
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте ! Помогите пожалуйста !
Нужно сделать так что бы при создании любой папки в системе Window 7 в месте с ней создавался фаил "desktop"внутри этой папки с вот такими вот параметрами
"[AveFolder]
IconArea_Image=D:\Фоны\1920-830\Девушки\2.jpg "

где D:\Фоны\1920-830 Это путь где находятся картинки
картинок примерно 100шт
Каждый раз при создании папки генерировалась бы новая картинка из этой 100-ни !

есть прога которая делает фон в картинке, но не хочется каждый раз указывать ей путь и делать это в ручную !!!
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
02.01.2015, 21:52
Ответы с готовыми решениями:

Что происходит при создании папки
Что происходит при создании папки на пк

Ошибка при создании папки i/o 123
FTime := TimeToStr(Time); FormatSettings.TimeSeparator := '_'; Direction := ExtractFilePath(ParamStr(0)) + 'Result Of Good...

Не создаются папки при создании INI файла
Вообщем, столкнулся с такой ситуацией. Я создаю Ini файл, и сообственно пишу директорию, где он должен сохраниться. Но если в директории...

82
0 / 0 / 0
Регистрация: 02.01.2015
Сообщений: 40
08.01.2015, 19:57  [ТС]
Студворк — интернет-сервис помощи студентам
Для того что бы обычный пользователь не снимал эту задачу !
0
Почетный модератор
 Аватар для Памирыч
23253 / 9167 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
08.01.2015, 20:03
Сложно сказать. У меня ее нет в списке приложений, по крайней мере, пока она работает в фоне.
Так как ее нет, то тестировать программу невозможно.

Если удастся попасть на семерку, попробую разобраться в вопросе
0
0 / 0 / 0
Регистрация: 02.01.2015
Сообщений: 40
08.01.2015, 20:14  [ТС]
Спасибо ! буду ждать !!
Памирыч,
0
Модератор
Эксперт .NET
 Аватар для Yury Komar
4375 / 3445 / 512
Регистрация: 27.01.2014
Сообщений: 6,267
09.01.2015, 07:23
deniska1331,
возможно батник
а батник это не программа чтоли???? ))
0
Почетный модератор
 Аватар для Памирыч
23253 / 9167 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
14.01.2015, 15:31
Тестируйте
Вложения
Тип файла: rar Смена фона папки.rar (85.7 Кб, 9 просмотров)
0
 Аватар для Юпатов Дмитрий
1722 / 1209 / 228
Регистрация: 23.12.2010
Сообщений: 1,544
14.01.2015, 18:55
Цитата Сообщение от Памирыч Посмотреть сообщение
Тестируйте
Не хочет. Перезагрузка не нужна?
Памирыч, а что в итоге программа должна сделать? Опиши, пожалуйста.
Ну не то, что фон папки меняет (это понятно), а алгоритм ее работы (что делает в реестре, например или в desktop.ini что пишет...)
0
Почетный модератор
 Аватар для Памирыч
23253 / 9167 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
14.01.2015, 19:11
Цитата Сообщение от Юпатов Дмитрий Посмотреть сообщение
Перезагрузка не нужна?
Вроде не требовала. Несколько раз перезапускал - работает.

Цитата Сообщение от Юпатов Дмитрий Посмотреть сообщение
алгоритм ее работы
Если кратко, то:
При старте проверяет корректность путей. Если папка (которую указали ранее) существует, и в ней есть изображения, то программа прячется. В противном случае будет предложено сделать настройки.
Проверяется наличие ключа автозапуска в реестре. Устанавливается чекбокс, или нет, если в реестре нет записи или она неверная.
Перебираются доступные диски, на каждый создаются по системвотчеру.

Вотчер ловит создание папки, записывает в него файл desktop.ini со следующим содержимым:

Code
1
2
3
4
5
[AveFolder]
IconArea_Image=C:\Documents and Settings\.....\картинко.jpg
[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
IconArea_Image=C:\Documents and Settings\.....\картинко.jpg
Recursive=1
Файл делает скрытым+системным, делает папку системной и чтобы сразу все работало, применяет все изменения в реестре (почему именно в реестре - хз, видимо туда уже винда сама что-то пишет)

VB.NET
1
2
3
4
5
6
7
    <DllImport("shell32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
Public Shared Sub SHChangeNotify(ByVal wEventId As UInt32, ByVal uFlags As UInt32, ByVal dwItem1 As IntPtr, ByVal dwItem2 As IntPtr)
    End Sub
 
    Sub AcceptRegistrySettings()
        SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, IntPtr.Zero, IntPtr.Zero)
    End Sub
Так же ловит горячие клавиши Альт+F9, показывает окно.

UPD:

Щас запустил на XP, окно над пуском видно (свернутое).
Уже вымораживает. С этими прятками от диспетчера и с экрана у меня вечные траблы...
0
 Аватар для Юпатов Дмитрий
1722 / 1209 / 228
Регистрация: 23.12.2010
Сообщений: 1,544
14.01.2015, 19:17
Спасибо. Попробую поиграться.
Цитата Сообщение от Памирыч Посмотреть сообщение
делает папку системной
зачем?
0
Почетный модератор
 Аватар для Памирыч
23253 / 9167 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
14.01.2015, 19:19
Юпатов Дмитрий, дело в том, что файл desktop.ini способен влиять на свойства папки только если она или скрытая, или системная (если мне память не изменяет)
0
 Аватар для Юпатов Дмитрий
1722 / 1209 / 228
Регистрация: 23.12.2010
Сообщений: 1,544
14.01.2015, 19:29
Понял. На досуге попробую поэкспериментировать

Добавлено через 3 минуты
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, IntPtr.Zero, IntPtr.Zero)
параметры, выделенные жирным не пояснишь?
0
Почетный модератор
 Аватар для Памирыч
23253 / 9167 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
14.01.2015, 19:33
Юпатов Дмитрий, увы, с API не знаком. Код юзаю как шаблон

deniska1331, перезалил вложение в посте 65
0
0 / 0 / 0
Регистрация: 02.01.2015
Сообщений: 40
14.01.2015, 19:37  [ТС]
Памирыч, Сейчас тестирую прогу! минут через 10 отпишусь
0
0 / 0 / 0
Регистрация: 02.01.2015
Сообщений: 40
14.01.2015, 19:48  [ТС]
Памирыч,

В диспечере задач, задача не отображается вроде, но зато появилось вот такое окошко !!!
Миниатюры
Установка фона папки при ее создании  
0
Почетный модератор
 Аватар для Памирыч
23253 / 9167 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
14.01.2015, 19:53
deniska1331, скачайте еще раз из того же поста, я менял вложение.
Проверить опять не на чем.
0
0 / 0 / 0
Регистрация: 02.01.2015
Сообщений: 40
14.01.2015, 20:14  [ТС]
Памирыч,

Вроде все ок!!!
Только не поиму толи вирус, то ли программа создает папки вот такие на всех дисках
Миниатюры
Установка фона папки при ее создании   Установка фона папки при ее создании   Установка фона папки при ее создании  

0
0 / 0 / 0
Регистрация: 02.01.2015
Сообщений: 40
14.01.2015, 20:15  [ТС]
Памирыч,
проверял на вирусы ни кого не нашел !
0
Почетный модератор
 Аватар для Памирыч
23253 / 9167 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
14.01.2015, 20:33
Не, моя программа не создает папок. Это я гарантирую.

Папки на скрине созданы какой-то другой программой. Возможно, это винда ставит обновления или что-то подобное
0
0 / 0 / 0
Регистрация: 02.01.2015
Сообщений: 40
14.01.2015, 20:54  [ТС]
Буду разбираться !
0
 Аватар для Юпатов Дмитрий
1722 / 1209 / 228
Регистрация: 23.12.2010
Сообщений: 1,544
15.01.2015, 08:33
Цитата Сообщение от Памирыч Посмотреть сообщение
с API не знаком. Код юзаю как шаблон
не, я имел в виду, как их объявлять. Студия же воспримет их как некие переменные и потребует объявить.
Раз они Uint32, то если их объявить, там вроде как нули будут, если ничего не присваивать...
Ладненько, методом научного тыка разберемся
0
Почетный модератор
 Аватар для Памирыч
23253 / 9167 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
15.01.2015, 09:32
А, это константы
VB.NET
1
2
    Const SHCNE_ASSOCCHANGED As Long = &H8000000L
    Const SHCNF_IDLIST As UInteger = &H0UI
Юпатов Дмитрий, у меня же в теме есть исходники
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.01.2015, 09:32

Ошибка 438 при создании новой папки
Подскажите как создать новую папку или в чем тут дело? Я подключаю библиотеку Microsoft Scripting Runtime (...system32scrrun.dll) Dim...

Автоматическое создание папки при создании файла
Смотрите, делаю класс, его задача чтение / запись данных в текстовый файл в определенном форме (каждая новая запись с новой строки), что то...

Ошибка в VirtualBox при создании общей папки
Давно пытаюсь создать общую папку,искал в интернете,смотрел на ютубе.И я знаю как это делать.Но происходит вот эта ошибка,не знаю...

При создании папки с помощью PHP сыпятся ошибки.
Здравствуйте, есть вот такой скрипт &lt;?php $trans =...

Ошибка прав доступа при создании папки с видео, обратитесь к администратору
Быть может кто подскажет, в JomSoacial 1.8.5 не дает пользователям загружать фотографии в альбом (хотя альбомы создаются без проблем),...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
80
Ответ Создать тему
Новые блоги и статьи
Nekobox - outbounds[0].transport: unknown transport type: raw
damix 01.10.2026
Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru