Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.09.2010, 09:59   #1
Marsel737
Форумчанин
 
Аватар для Marsel737
 
Регистрация: 09.11.2009
Сообщений: 669
По умолчанию Сохранение и загрузка ярлыка

Всем доброго времени суток.

Пишу панель быстрого запуска, на этой панели будут ярлыки с подписями, у каждого ярлыка свой путь к файлу и вот никак не могу придумать, как эти ярлыки сохранять.

Нужно сохранить имя ярлыка и путь к файлу. Хотел сделать так:

Код:
procedure TfrmMain.SaveLink(const strAFileName, strAFilePath: string);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) +
    'Data\lconf.ali');
  Ini.WriteString(strAFileName, 'LinkName', strAFileName);
  Ini.WriteString(strAFileName, 'LinkPath', strAFilePath);
  Ini.Free
end;
Чтобы потом при удалении ярлыка воспользоваться процедурой:

Код:
Ini.EraseSection(strAFileName);
Но не знаю как потом считывать эти ярлыки, думал что есть что-нибудь вроде этого, но не оказалось:

Код:
procedure TfrmMain.LoadLink;
var
  Ini: TIniFile;
  I: integer;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) +
    'Data\lconf.ali');
  for I := 0 to Ini.Section.Count - 1 do
  ...
  Ini.Free;
end;
Я не всегда знаю, о чем говорю, но знаю, что прав. © Мухаммед Али.
К чёрту обстоятельства. Я создаю возможности. © Брюс Ли
Marsel737 вне форума Ответить с цитированием
Старый 02.09.2010, 10:49   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

может это?
Цитата:
Метод ReadSections

Затрагиваемые объекты TIniFile
Назначение Метод ReadSections копирует все имена разделов в INI-файле в строковый объект.
Объявление procedure ReadSections (Strings: TStrings) ;
Параметры
Strings Список имен разделов.
Пример Синтаксиса // Данный обработчик события при нажатии кнопки печатает имена
// разделов INI-файла в окне списка
procedure TForm1.Button1Click(Sender: TObject);
var MyIni: TIniFile;
begin
ListBox1.Clear;
MyIni := TIniFile.Create('test.ini');
MyIni.ReadSections(listBox1.Items);
MyIni.Free;
end;
Описание Строковый объект является списком строк, используемым компонентами (такими как окна списков), которым необходимо манипулировать со многими строками. ReadSections запоминает список имен разделов INI-файла в параметре Strings. В вышеприведенном примере кода данный список передается свойству Items окна списка, который также имеет тип TStrings. РИСУНОК 4-2 Окно списка отображает идентификаторы в разделе [Desktop] файла WIN.INI.
взято здесь http://www.sdteam.com/?tid=428
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 02.09.2010, 15:43   #3
Marsel737
Форумчанин
 
Аватар для Marsel737
 
Регистрация: 09.11.2009
Сообщений: 669
По умолчанию

Похоже это то что нужно, спс. Но назревает ещё вопрос хранить всё в ини файле это нормальное решение для такой задачи или есть полее подходящий вариант
Я не всегда знаю, о чем говорю, но знаю, что прав. © Мухаммед Али.
К чёрту обстоятельства. Я создаю возможности. © Брюс Ли
Marsel737 вне форума Ответить с цитированием
Старый 02.09.2010, 15:48   #4
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

я думаю вполне нормальное, можно свой формат файла сделать(например по две строки, строки название, строка путь и тд)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 02.09.2010, 16:03   #5
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Если внимательно изучите файлы моей программы, найдете бинарный файл настроек. Там же, помимо настроек, и все, что касается ярлыков.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сохранение и загрузка. Deep-Minimal Паскаль, Turbo Pascal, PascalABC.NET 12 19.04.2010 22:15
Загрузка/сохранение рисунков Marsik Помощь студентам 20 20.11.2008 18:09
Загрузка и сохранение в файл rainbow Общие вопросы Delphi 16 27.09.2008 11:35
HRGN сохранение-загрузка? Comer_Jus Общие вопросы Delphi 5 21.05.2008 20:12
Сохранение и загрузка информации Slash Общие вопросы Delphi 9 04.02.2007 22:01