Работа с реестром.

[eL1tE]

Помогите, пожалуйста! Когда я пытаюсь создать в реестре ключ, то выскакивает сообщение об ошибке: "Project Project1.exe raised exeption class ERegistryExeption with message "faild to set data for 'project1' ". Process stopped." Что с этим делать - не знаю. В инете рылся. На форуме было подобное сообщение и там просто, как факт, человек отписался, что сам справился. А как - вопрос. Большой и жирный. Помогите плиз. Если надо листинг выложу. Зараннее спасибо.

[execom]

Странный вопрос.... Где код? Разве можно узнать причину ошибки, если мы не знаем что ты писал!!? Вот простенький пример работы с реестром на делфи! Процедурка добавляет в реестр, ключь автозагрузки!

uses
  Registry;
procedure SetAutorun(aProgTitle,aCmdLine: string; aRunOnce, HKCU_HKLM: boolean );
var
  hKey: string;
  hReg: TRegIniFile;
begin
  if aRunOnce then hKey := 'Once'
  else
    hKey := '';
  hReg := TRegIniFile.Create( '' );
  if HKCU_HKLM
  then hReg.RootKey := $80000001
  else hReg.RootKey := $80000002;
  hReg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run'
                  + hKey + #0,
                  aProgTitle,
                  aCmdLine );
  hReg.destroy;
end;
begin
SetAutorun('Name_Key','c:\windows\Name_Prog.exe',false,false);
end.

[eL1tE]

Вот код:

uses
  Forms, Registry;

{$R *.res}
var
  reg:Tregistry;
  HKEY_current_user : cardinal;
begin
  Application.Initialize;
  Application.Run;
  reg:=Tregistry.Create;
  reg.RootKey:=HKEY_current_user;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
  reg.WriteString('project','C:/Temp/project.EXE');
  reg.Free;
end.

Что здесь не так?

[Shuraken]

Сообщение от eL1tE

Вот код:

uses
Forms, Registry, Windows;

{$R *.res}
var
reg:Tregistry;
begin
Application.Initialize;
Application.Run;
reg:=Tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Run',false);
reg.WriteString('project','C:/Temp/project.EXE');
reg.Free;
end.

Вот так работает.

[eL1tE]

Неа. Точно так же, как и было. Ошибка выскакивает. Почему нет доступа в реестр?

[eL1tE]

Сори. Ступил. Помогло. Спасибо большое.