
17.01.2008, 20:26
|
 |
Специалист
|
|
Регистрация: 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.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|