|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Ярлыки на форме Delphi (Lazarus)
Здравствуйте. Подскажите, каким образом реализовать следующую задумку: В папке с будущей программой есть подкаталог Shortcut, в котором расположены ярлыки каких-то программ. При запуске моей программы на форме оной должны быть размещены ярлыки из папки Shortcut. Само собой, кликабельные и действующие.
Как это реализовать? В какую вообще сторону копать? На данный момент ничего путевого не могу придумать даже в теории. ЗЫ. Если это важно, у меня Lazarus, не Delphi. |
#2
|
||||
|
||||
А есть ли в Lazarus компонент ShellListView?
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. |
#3
|
|||
|
|||
Да можно и через обычный ListView сделать. Просто кода надо будет чуть побольше, зато будет полный контроль.
|
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Dreammaster (15.07.2019)
|
#4
|
|||
|
|||
Цитата:
|
#5
|
|||
|
|||
Собственно, тебе просто надо считать файлы ярлыков (кстати, если делаешь свой код на основе простого ListView, то они не обязательно должны быть именно .lnk, можно свой формат сделать, который тебе удобен), создать соотв. итемы в лист вью и обратотать двойной клик по итему. Вроде и все, остальное, типа сохранение позиций, сортировка и т.д. - это уже дополнения, не влияющие на основной функционал.
|
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Dreammaster (25.11.2019)
|
#6
|
|||
|
|||
Цитата:
|
#7
|
|||
|
|||
Некогда код искать.
Суть такова. 1. Надо получить из системы системный список иконок. Вот тут есть подходящий пример: http://www.delphigroups.info/2/1f/290636.html 2. Далее через FindFirst/FindNext/FindClose получаем список файлов/папок. 3. При нахождении очередного файла запрашиваем индекс его иконки и при создании ListItem назначаем его. |