| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Кому не трудно, помогите с кодом [D6, Win2k]
Angel123 © (2005-09-01 04:59:00)Вот написал код который должен проверить - имеется ли запись в реестре, если имеется то закрывать прогу а если нет то внести запись в реестр
===================================================================
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;
===============================================================
Но он почему то сразу выдаёт что запись есть и она появляется откудо-невозьмись, помогите плиз, подскажите как правильный код сделать!
Anatoly Podgoretsky (2005-09-01 09:56:00) [1]Angel123 (01.09.05 04:59)
Начать с главного - ни когда не использовать TRegIniFile;
А для проверки наличия использовать метод ReadString, но только для TRegistry
PKT (2005-09-01 05:31:00) [2]Ну так разумеется он выдаст, что запись есть, ведь Вы
при вызове
function ReadString(const Section, Ident, Default: string): string;
указали значение по умолчанию 'test'.
Кстати, а чего это Вы функцию вызываете до создания объекта?
| |
