TRegistry.Rootkey не определяеться

[rainbow]

Написал программу для консоли Delphi, которая вносит изменение в реестр

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR]
"Start"=dword:00000004

Вот код программы:

program 111;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Registry;

var
  Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SYSTEM',true);
Reg.OpenKey('CurrentControlSet',true);
Reg.OpenKey('Services',true);
Reg.OpenKey('USBSTOR',true);
Reg.WriteInteger('Start',4);
Reg.CloseKey;
Reg.Free;
end.

Но почему то, когда определяешь корень реестра HKEY_LOCAL_MACHINE вылазит ошибка:
Undeclared identifier 'HKEY_LOCAL_MACHINE'

[Aristarh Dark]

Потому что эти константы определены в модуле Windows, а он у тебя не подключен.

[rainbow]

Aristarh Dark, а точно, спасибо.