|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
значение String не считывает из реестра
Приветствую Уважаемые формумчане.
Не могу понять в чем проблема ( ну помимо моих кривых рук конечно) Есть функция, которая сравнивает значение ключа реестра с другой переменной., и должна в случае совпадения вывести ОК, или значение ключа реестра при не совпадении Код:
var Reg: TRegistry; utc, utcok: string; begin reg := TRegistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; reg.openKey('SYSTEM\CurrentControlSet\Control\TimeZoneInformation',true); utc:=reg.ReadString('TimeZoneKeyName'); utcok:='FLE Standard Time'; if (utc = utcok) then lbl29.Caption:='OK' else lbl29.Caption:=utc; reg.CloseKey; reg.free; |