Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.09;
Скачать: 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 вся ветка

Текущий архив: 2005.10.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
14-1127292597
vajo
2005-09-21 12:49
2005.10.09
Тормоза в винде


2-1125370412
The Sound
2005-08-30 06:53
2005.10.09
String TO PAnsiChar


2-1125308192
Zikmu
2005-08-29 13:36
2005.10.09
Запуск приложений


3-1125252147
SergP
2005-08-28 22:02
2005.10.09
Увеличение размера базы ACCESS после открытия представления


3-1124768187
_sulent
2005-08-23 07:36
2005.10.09
Работа БД с MS SQL, что лучше?