![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
На моем компе все нормально, а на некоторых не пишет в реестр. У меня Windows7 64bit. Делаю я так:
uses registry; Код:
const
KeyWin = 'SOFTWARE\Microsoft\Windows\CurrentVersion';
var
reg:tregistry;
procedure TForm1.FormCreate(Sender: TObject);
begin
reg:=tregistry.create;
reg.rootkey:=hkey_local_machine;
reg.openkey('software\tabs',true);
reg.writeinteger('tab',1);
reg.closekey;
reg.destroy;
end;Помогите пожалуйства ![]() |