Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 7
Всего онлайн: 7
Зарегистрировано юзеров: 7805
Комментариев на сайте: 681
Новый юзер: Аdult onlinе dating



Последние комментарии
c
Arthurneime прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
[img]https://sun9-66.userapi.com/c857220/v857220344/115e0/ySGY2CstZbw.jpg[/img] [b]Секс и здоровье[/b] =!!= Секс и здоровье : причинно-следственная связь =!!= Понижение потенции: есть ли повод для паники? =!!= Половой акт: квинтэссенция чувств и жизненных сил =!!= Продление полового акта: забег на длинную дистанцию =!!= Продление эрекции: выше, больше, сильнее [b]Секс и здоровье мужчины: причинно-следственная связь [/b] В ходе многочисленных экспериментов ученые установили, что главной причиной ранней смертности мужчин (а средняя продолжительность жизни мужской части населения в России составляет всего 59 ле&#1090 является безответственное отношение к своему сексуальному здоровью. При первых сбоях в работе половой системы мужчины подвергаются стрессу, выходят из состояния психического равновесия. В 80% случаев сексуальная нереализованность выливается в тяжелые депрессивные состояния, неврозы, проявления неконтролируемой агрессии. Этому есть вполне логичное объяснение с точки зрения физиологии. Дело в том, что мужской гормон тестостерон, который является важнейшим фактором в работе сердца, почек, печени, нервной системы, способен вырабатываться лишь в процессе половой близости. Мужчина с пошатнувшимся сексуальным здоровьем часто начинает ощущать общее недомогание, становится раздражительным, несобранным, агрессивным и чрезмерно эмоциональным. А это уже прямо ведет к тому, что человеку не хватает сил для самореализации, которая для мужчин имеет приоритетное значение в жизни. [b]Получается очень мрачная картина, напоминающая замкнутый круг.[/b] Как выйти из него, как решить проблемы? На многие возникающие интимные вопросы вы сможете найти ответы посетив рекомендуемые ниже ресурсы. Источник: http://porntube24.online/2020/04/08/aletta-ocean-backstage-fucking-big-cock/ ================== [url=https://bit.ly/2KhYaIy]Знакомства 18+[/url] [url=https://bit.ly/2y2MVRE]Казино для Ценителей.[/url] [url=https://bit.ly/2KgSJcE]18+ Секс -чат[/url] https://www.youtube.com/watch?v=32ClBPbPuGE [youtube]wcgT7YcqPg0[/youtube]
EleoPhync прокомментировал "Урок 18 - Знакомство с компонентами (часть 9/13)":
Viagra Pas De La Case [url=https://buyciallisonline.com/#]Buy Cialis[/url] Kamagra Jelly Usa <a href=https://buyciallisonline.com/#>Buy Cialis</a> Acquistare Cialis Tadalafil

Как изменить иконку у директории

Обычно, для изменения вида папок в Проводнике используется файл desktop.ini. Сперва необходимо создать файл Desktop.ini и поместить в ту директорию, иконку которой мы хотим изменить. В программе для этого можно воспользоваться классом TIniFile и передать в него путь директории.

Теперь нам необходимо записать в .ini файл пары =. В Desktop.ini эти пары выглядят следующим образом (самое главное, это указать иконку и её индекс):

[.ShellCLassInfo] 
IconFile=C:LocationofFolder.ico 
IconIndex=0 
InfoTip=Delphi is the coolest IDE ever!
Значение IconFile это путь к .dll, .ico, или .exe. В Delphi это выглядит так:
with iniFile do 
begin 
//Следующие строки меняют иконку 
WriteString('.ShellClassInfo', 'IconFile', editIconPath.Text); 
WriteString('.ShellClassInfo', 'IconIndex', editIconIndex.Text); 
WriteString('.ShellClassInfo', 'InfoTip', 'Use Delphi because it rocks!'); 
UpdateFile; 
end;
Теперь, когда файл Desktop.ini создан, необходимо изменить атрибуты папки и добавить системный флаг. Чтобы иконка отображалась правильно, желательно установить системный флажёк как для папки, так и для её родителя. Для установки атрибутов воспользуемся функцией SetFileAttribue():
//Устанавливаем системные атрибуты для папки и её родителя 
SetFileAttributes(PChar(edFolderPath.Text), FILE_ATTRIBUTE_SYSTEM); 
if Length(edFolderPath.Text) > 3 then //Если директория не корневая... 
begin 
//функция LastChar возвращает индекс последнего вхождения символа 
//в строку. Этот способ позволяет быстро получить путь родительской 
//директориии, если, конечно, директория не является корневой на диске.. 
tempDir := Copy( edFolderPath.Text, 1,LastChar(edFolderPath.Text, '')-1); 
SetFileAttributes(PChar(tempDir), FILE_ATTRIBUTE_SYSTEM); 
end;
Теперь можно открыть Проводник и посмотреть в левой панели на значёк директории

Вот и всё, Удачи!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 13 Апреля 2014
Просмотров:


Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.