Панель быстрого запуска, буфер обмена, путь до ресурсов и Ini

@ventura69 · Регистрация: 15.01.2015

Студворк — интернет-сервис помощи студентам

Добрый день, уважаемые. Рылся, рылся по форумам не нарыл ни чего и только запутался еще больше.
Делаем панель быстрого запуска. Создаем глобальную переменную, запускаем при открытии формы DragAcceptFiles(handle, true) (разрешаем Drag and Dron). Создаем процедуру перетягивания ярлыка приложения:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
CFileName: array[0..MAX_PATH] of Char;
//...
procedure TForm2.WmDropFiles(var Msg: TWMDropFiles);
var
 iconindex: word;
 icon: hicon;
    begin
      F:=CfileName; 
      Label1.Caption:=ExtractFileName(F);
      Msg.Result:=0;
    DragFinish(Msg.Drop);
  iconindex:=1;
  Image1.Picture.Icon.Handle:= ExtractAssociatedIcon(HInstance, Pchar(F), iconIndex);
  DrawIcon(Canvas.Handle,10,10,icon);
  end;

Создаем Ini-шник, прописываем на открытие и закрытие формы сохранение и запись параметров, НО! Как сохранить путь до иконки, чтобы на следующее открытие остались данные о перетянутых иконках и пути к файлам? Банальное ReadString('option', 'linc1', F) толку не дает. И не дает толку ReadString('option', 'linc1', CFileName).
Формулирую полностью вопрос: Как сохранить путь до иконки, чтобы на следующее открытие остались данные о перетянутых иконках и пути к файлам? Желательно конкретно, ибо я новичек в плане программирования (только учусь). Установлен на компе ХЕ7 на Вин7*64 Про (если нужна эта инфа).

Verevkin · 24.03.2015, 11:36

Сообщение от ventura69

Проверьте, что получилось.

всё как было в одной куче, так и осталось.
плюс файл открытым остаётся.
плюс отладка с помощью showMessage() – эт ваще пипец.

@ventura69 · 24.03.2015, 11:43 **[ТС]**

Если правильно понял, то в конце открытия и закрытия формы дописываем Settings.free;? А как Вы предлагаете разбить эту кучу? Не составит труда показать мою кучу в правильном виде?

Verevkin · 24.03.2015, 11:52

Сообщение от ventura69

Если правильно понял, то в конце открытия и закрытия формы дописываем Settings.free;?

НетЪ!

Сообщение от ventura69

А как Вы предлагаете разбить эту кучу?

На отдельные функции, я ж писал.

Сообщение от ventura69

Не составит труда показать мою кучу в правильном виде?

Могу кусок своего исходника показать.
Попозже: соседи по палате зовут играть в преф.

@ventura69 · 24.03.2015, 19:16 **[ТС]**

Покажите, конечно! Поучиться - это всегда хорошо. Буду очень благодарен.
С путями и записью ini-шника разобрался, хоть и коряво. Спасибо огромное Вам и Крапоткину

Verevkin · 24.03.2015, 19:29

Вот, посмотри, для начала .
А потом это.
Исходники прицепляю.

Verevkin · 24.03.2015, 19:35

...271012...

@volvo · 24.03.2015, 20:40

Сообщение от Verevkin

Вот, посмотри, для начала

Комментарий модератора

Для начала - вот это посмотри: Правила Форума

5.8 Запрещено публиковать ссылки на другие форумы, а также их пропаганда. Публикация ссылок на форумы допустима только в разделе "Готовые движки, cms и форумы" для решения технических проблем и с предварительного одобрения администрации.

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@ventura69 0 / 0 / 0 Регистрация: 15.01.2015 Сообщений: 58
	24.03.2015, 11:43 [ТС]
	Если правильно понял, то в конце открытия и закрытия формы дописываем Settings.free;? А как Вы предлагаете разбить эту кучу? Не составит труда показать мою кучу в правильном виде? 0

@ventura69 0 / 0 / 0 Регистрация: 15.01.2015 Сообщений: 58
	24.03.2015, 19:16 [ТС]
	Покажите, конечно! Поучиться - это всегда хорошо. Буду очень благодарен. С путями и записью ini-шника разобрался, хоть и коряво. Спасибо огромное Вам и Крапоткину 0

Verevkin Злостный нарушитель 10878 / 5817 / 1288 Регистрация: 12.03.2015 Сообщений: 26,855
	24.03.2015, 19:35
	...271012... 0