Скачать: CL | DM;

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

← →
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".

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

---

← →
Anatoly Podgoretsky ©   (2005-09-01 09:56) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c