Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Уникальное имя раздела реестра.


Егор ©   (2002-08-23 15:14:00) 

Здравствуйте.

Как можно реализовать следующее? В реестре нужно создать раздел
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall\ 00000при добавлении следующей записи, нужно создать раздел
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall\ 00001
и так далее. То есть, если раздел 00000сушествует - создать 00001, если и 00001сушествует - создать 00002и т.д и т.п. Идей у меня пока нет, топчусь на одном месте, как видите. Вот и решил спросить.

procedure NewUninstallKey;
begin
Reg := TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey("\Software\Microsoft\Windows\CurrentVersion\Uninstall\"+"00000", True) then
begin
reg.WriteString("DisplayName", FrmChange.txtDn.text);
reg.WriteString("UninstallString", FrmChange.txtUnstr.text);
end;
reg.CloseKey;
reg.Free;
except
reg.CloseKey;
reg.Free;
end;
end;


Егор   (2002-08-23 17:38:00) [1]

А вдруг совпадет? Всякое случается.


RV   (2002-08-23 16:22:00) [2]

если нужна просто уникальная запись можно (дата+время) в качестве нее использовать.


Егор   (2002-08-23 15:35:00) [3]

Буду благодарен за пример.


Skier   (2002-08-23 15:33:00) [4]

>Егор
Можно генерить GUID и конвертировать его в строку
(он уж точно будет уникальным)
И запоминать его - чтобы потом прочесть


Anatoly Podgoretsky   (2002-08-23 15:30:00) [5]

Цикд While начиная с 0 и функция KeyExists


Kaban   (2002-08-23 15:20:00) [6]

создай рядом ключ, где храни имя последнего раздела, в чем проблема?


Наверх

Титульная страница Поиск, карта сайта Написать письмо