Реестр windows7 не регистрируется вылитает ошибка

[Volkogriz]

Всем здравствуйте!
У меня при регистрации в реестр выбивает постоянно ошибку только в windows7 в xp всё отлично.
подскажите что ни так? систему переустанавливал и на чистой тоже не регистрирует.

function TForm2.RegPrograms:boolean;
begin   
Reg:=TRegistry.create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Westwood\Emperor',true);
Reg.LazyWrite := True;
Reg.WriteString('InstallPath',GamePach+'Emperor.exe');
Reg.WriteString('FolderPath',GamePach);
Reg.WriteString('Serial','4731640249971650404194');
Reg.WriteString('HTMLPath',GamePach+'Data\HTML');
Reg.WriteString('Desktop',GetFolderLocation('Desktop') + '\' +ExtractFileName('Emperor.exe'));
Reg.WriteString('Programs',GetFolderLocation('Programs') + '\Westwood');
Reg.WriteString('Name','Emperor');
Reg.WriteInteger('Version', 00010009);
Reg.WriteInteger('AmountStart', 00000007);
Reg.WriteInteger('SKU', 7936);
Reg.WriteInteger('MyAssembly',78260781);
Reg.CloseKey;
result:=true;
end;

С уважением,
Денис!

[FaTaL]

Какую ошибку то выдаёт? Кстати по какому условию у Вас функция возвращает результат? Судя по всему она всегда возвращает true. И в конце надо бы освободить память Reg.Free;

[Stilet]

Прав наверное на запись не хватает )

[Человек_Борща]

Reg.RootKey := HKEY_LOCAL_MACHINE;

Ну вот нечего туда без административных прав лезть.

[Serge_Bliznykov]

точно, прав не хватает!

Volkogriz, если реально нужно писать в HLKM, попробуйте правой кнопкой мышки на вашей программе - "Запустить от имени администратора".

[Volkogriz]

Функция сокращена просто основную часть написал.
Человек_Борща, Serge_Bliznykov Спасибо о правах не подумал.
С уважением,
Денис!