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

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 9
Всего онлайн: 9
Зарегистрировано юзеров: 7992
Комментариев на сайте: 701
Новый юзер: maksimian



Последние комментарии
c
Leslieanops прокомментировал "Урок 3 - Конструкция IF...THEN...ELSE":
Мир применения строительных вышек Вышки-туры представляют собой мобильную башню-помост. На стройплощадках Москвы вышки туры встречаются робеть часто. Умилостивлять вышку-туру — вероятно, приобрести надежного помощника для строительных работ на больших и средних высотах, недоступных ради обычных стремянок и козел. Строительные туры позволяют наживать тяжелые материалы и движимость, удобно располагать их ради рабочем настиле. Они применяются: около облицовке и окраске фасадов, судопроизводство уборочных и ремонтных работах, близко кладке кирпича вроде внутри здания, беспричинно и со стороны улицы. Туру также приспосабливают в качестве опоры для съемочного оборудования, используют нечаянно судейскую вышку красоваться проведении соревнований. Структура Строительная вышка тура имеет каркасную конструкцию, состоящую из отдельных элементов, дабы существуют и неразборные модели мачтового типа. Конструкция складывается из плоских лестниц и рам, рабочих помостов, опор. Каждая осколки имеет 5 ступеней. Противоположные рамы крепятся между собой с через стяжек. В основании строительной туры лежат винтовые опоры, которые многократно оснащаются колесами дабы передвижения конструкции кстати площадке. Преимущества строительных рейс легкость сборки (здание тура, состоящая из 4 секций, собирается одним работником в ходьба 20 минут); мобильность; устойчивость ради сложном рельефе изза счет использования стабилизирующего оборудования. Монтажные вышки туры Монтажные туры представляют собой передвижные обстановка подмащивания . Их дозволено пользоваться ради работ, связанных с высотой. Монтажная тура собирается из готовых стандартных секций с помощью специальных замков. Дополнительная стяжка обеспечивается диагональными балками. Монтажные вышки отличаются простотой сборки, высокой надежностью и легкостью транспортировки. Продажа вышек дорога в Москве и регионах Ежели вы желаете подкупать строительную вышку туру в Минске alias регионе, общество «Ринстрой» готова поставить вам вооружение как собственного производства, напрасно и других производителей. У нас также действует стиль соответственно сдаче оборудования в аренду, который позволяет заказчикам, организующим кратковременные мероприятия, экономить значительную рацион бюджета. Собственное действие позволяет устанавливать разительно доступные цены ради вышки туры и другое строительное оборудование. И выше бонус вы можете: <a href=https://vk.com/vyshki_tur>вышка тура купить в минске у производителя</a> <a href=https://ok.ru/group/56574637375561/topic/150957017705289>вышка тура купить в минске у производителя</a> <a href=https://www.linkedin.com/pulse/%25D0%25B2%25D1%258B%25D1%2588%25D0%25BA%25D0%25B0-%25D1%2582%25D1%2583%25D1%2580%25D0%25B0-%25D1%2580%25D0%25B8%25D0%25BD-%25D1%2581%25D1%2582%25D1%2580%25D0%25BE%25D0%25B9>вышка тура купить в минске цена</a> <a href=https://www.linkedin.com/pulse/%25D0%25BF%25D1%2580%25D0%25B5%25D0%25B4%25D0%25BB%25D0%25B0%25D0%25B3%25D0%25B0%25D0%25B5%25D0%25BC-%25D0%25BF%25D0%25B5%25D1%2580%25D0%25B5%25D0%25B4%25D0%25B2%25D0%25B8%25D0%25B6%25D0%25BD%25D1%258B%25D0%25B5-%25D0%25B2%25D1%258B%25D1%2588%25D0%25BA%25D0%25B8-%25D1%2582%25D1%2583%25D1%2580%25D1%258B-%25D1%2581%25D0%25BE%25D0%25B1%25D1%2581%25D1%2582%25D0%25B2%25D0%25B5%25D0%25BD%25D0%25BD%25D0%25BE%25D0%25B3%25D0%25BE-%25D1%2580%25D0%25B8%25D0%25BD-%25D1%2581%25D1%2582%25D1%2580%25D0%25BE%25D0%25B9>вышка тура строительная передвижная купить в минске с доставкой</a> <a href=https://www.linkedin.com/pulse/%25D0%25B2%25D1%258B%25D1%2588%25D0%25BA%25D0%25B0-%25D1%2580%25D0%25B8%25D0%25BD-%25D1%2581%25D1%2582%25D1%2580%25D0%25BE%25D0%25B9>вышка тура строительная передвижная</a> <a href=https://www.linkedin.com/pulse/%25D0%25B2%25D1%258B%25D1%2588%25D0%25BA%25D0%25B0-%25D1%2582%25D1%2583%25D1%2580%25D0%25B0-%25D0%25BA%25D0%25B0%25D1%2582%25D0%25B0%25D0%25BB%25D0%25BE%25D0%25B3-01012020-%25D1%2580%25D0%25B8%25D0%25BD-%25D1%2581%25D1%2582%25D1%2580%25D0%25BE%25D0%25B9>вышка тура</a>
Robertrhits прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
Всем привет. Хотелось бы поделиться хорошей компанией, которая занимается монтажем, ремонтом систем безопасности. Надеюсь моя информация принесет вам пользу. С вашего позволения, оставлю ссылку на их компанию [url=https://vlkamera.ru/ustanovka-sistem-quotskudquot.html] Монтаж системы управления доступом [/url]

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

Обычно, для изменения вида папок в Проводнике используется файл 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
Просмотров:


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