VPF::запомнить директорию - Форум программистов

Martisha

Дата 29.1.2009, 10:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

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

В моей программе при запуске нужно задавать директорию, я использую для этого DirectoryEdit1 из библиотеки RxLib, т.е. получается при запуске DirectoryEdit1 всегда пустой,
вопрос такой:
возможно ли запоминать последнюю введенную директорию, чтоб не вводить каждый раз?!

Exciter

Дата 29.1.2009, 10:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 17.10.2008

Репутация: нет
Всего: нет

Код


const
  SectionMain    = '\SOFTWARE\ТвояПрога';
 
// запоминаем
With TRegIniFile.Create do
begin
 RootKey:=HKEY_CURRENT_USER;
 OpenKey(SectionMain, True);
 WriteString(SectionMain, 'Dir', DirectoryEdit.Text);
 Free;
end;

// восстанавливаем
With TRegIniFile.Create do
begin
 RootKey:=HKEY_CURRENT_USER;
 OpenKey(SectionMain, True);
 DirectoryEdit.Text := ReadString(SectionMain, 'Dir', 'Дира по умолчанию');
 Free;
end;

Делов то.

M
Alexeis

Модератор: используйте подсветку кода

Martisha

Дата 29.1.2009, 11:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

Exciter, пасиб, все получилось, еще uses нужно Registry добавить smile

THandle

Дата 29.1.2009, 16:17 (ссылка)

(голосов:3)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Exciter, не плохо бы данный код заключить в блок try..finally:

Код


with TRegIniFile.Create do
try
  RootKey := HKEY_CURRENT_USER;
  OpenKey(SectionMain, True);
  WriteString(SectionMain, 'Dir', DirectoryEdit.Text);
finally
  Free;
end;

Код


with TRegIniFile.Create do
try
  RootKey := HKEY_CURRENT_USER;
  OpenKey(SectionMain, True);
  DirectoryEdit.Text := ReadString(SectionMain, 'Dir', 'Дира по умолчанию');
finally  
  Free;
end;

Martisha

Дата 29.1.2009, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

THandle, ok smile

Exciter

Дата 29.1.2009, 16:56 (ссылка)

(голосов:3)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 17.10.2008

Репутация: нет
Всего: нет

Люди.

Это код показывающий решение вопроса.
А во что его заключать и где использовать это уже не мои проблемы.
В Try можно воткнуть каждую строку программы. И что ?

Akella

Дата 29.1.2009, 19:16 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Exciter, это форум, и здесь могут дать свои ответы хоть 100 пользователей, даже если ты ответил правильно первый... это же ещё и общение. Ты сюда пиписьками пришёл меряться?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »