Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Реестр

Автор: Demonix 14.4.2007, 13:33

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

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

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

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

Автор: MetalFan 14.4.2007, 14:38

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

Автор: Lence 15.4.2007, 00:01

Код


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;

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