Кому не трудно, помогите с кодом

← →
Angel123 (2005-09-01 04:59) [0]

Вот написал код который должен проверить - имеется ли запись в реестре, если имеется то закрывать прогу а если нет то внести запись в реестр
===================================================================
var
RegIni:TRegIniFile;
wk:String;
v:String;
begin
wk:=RegIni.ReadString("software/microsoft/windows", "wk", "test");
v:="test";
if wk=v then
begin
showmessage("Yet here!");
close;
end;
RegIni:=TRegIniFile.Create("Software");
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey("Software", true);
RegIni.OpenKey("Microsoft", true);
RegIni.WriteString("Windows", "wk", "test");
RegIni.Free;
showmessage("Writed!");
end;
===============================================================
Но он почему то сразу выдаёт что запись есть и она появляется откудо-невозьмись, помогите плиз, подскажите как правильный код сделать!

← →
PKT (2005-09-01 05:31) [1]

Ну так разумеется он выдаст, что запись есть, ведь Вы
при вызове
function ReadString(const Section, Ident, Default: string): string;
указали значение по умолчанию "test".

Кстати, а чего это Вы функцию вызываете до создания объекта?

Angel123 (01.09.05 04:59)
Начать с главного - ни когда не использовать TRegIniFile;
А для проверки наличия использовать метод ReadString, но только для TRegistry

Кому не трудно, помогите с кодом Найти похожие ветки