VPF::Реестр - Форум программистов

Demonix

Дата 14.4.2007, 13:33 (ссылка)

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

Загрузка ...

Новичок

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

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

Приветствую!

Вот такая проблема:

Надо создать в реестре каталог, в нём поле, которое должно быть заполнено значением "0".
Затем, если некий пароль верен, то изменить нзачение на "1".
И, наконец, проверять при запуске программы чему равно значение. Если "1" то делать одно, а если "0" - то другое.

Заранее благодарю

MetalFan

Дата 14.4.2007, 14:38 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

жэсть... в поиск, в факи... скучно

--------------------

There are always someone smarter than you...

Lence

Дата 15.4.2007, 00:01 (ссылка)

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

Загрузка ...

Чухарадземадзупэ

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

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

Код


uses Registry...

function RegInsert (i: string);
Reg: Tregistry;
begin
Reg:=Tregistry.Create;
Reg.RootKey:= HKEY_LOCAL_MACHINE;
if Reg.KeyExists('Software\My Security Program\Main') then 
begin
Reg.OpenKey('Software\My Security Program\Main', true);
reg.WriteString('Code', i);
reg.CloseKey;
reg.Free;
end;
end;
function RegRead (i: string);
Reg: Tregistry;
begin
Reg:=Tregistry.Create;
Reg.RootKey:= HKEY_LOCAL_MACHINE;
if Reg.KeyExists('Software\My Security Program\Main') then 
begin
Reg.OpenKey('Software\My Security Program\Main', true);
i:= reg.ReadString('Code');
reg.CloseKey;
reg.Free;
end;
end;

набросал быстро ... остальное думаю сам уже напишешь .... код я сам не проверял но должен работать ... если что подправь

Это сообщение отредактировал(а) Lence - 15.4.2007, 00:04

--------------------

Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....

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