Здравствуйте! Не работает вот этот код!
| Код |
procedure TForm1.Button9Click(Sender: TObject);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',False);
if Reg.ReadInteger('NoDispAppearancePage')=0 then Reg.WriteInteger('NoDispAppearancePage',1);
Reg.CloseKey;
Reg.Free;
end;
|
При проверке синтаксиса и при компиляции ошибок не выдаёт, а при работе выдаёт ошибку и начинается откладка.
Помогите! Почему не работает код?  |
