Показать сообщение отдельно
  #2  
Старый 17.01.2008, 20:26
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
 
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
Восклицание

Сделай так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Reg : TRegistry;
Key :string;

begin
Key:='Software\Microsoft\Windows\CurrentVersion\Policies\Explorer';
Reg := TRegistry.Create;
   try
   Reg.RootKey:=HKEY_CURRENT_USER;
   Reg.OpenKeyReadOnly(Key);
   if Reg.ValueExists('StartMenuLogOff') then
    begin
    Edit1.Text:=IntToStr(Reg.ReadInteger('StartMenuLogOff'));
    Reg.CloseKey;
    end
        else
        begin
        ShowMessage('Параметр не найден');
        Edit1.Clear;
        Reg.CloseKey;
        end;
  Finally
  Reg.Free;
end;

end;
Проверял! Все работает!
ЗЫ: Параметр в реестре должен быть DWORD
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием