Перестал работать авторан в Win 7

[mutabor]

Вот этот код работает в XP без проблем

procedure TForm1.AddAutoRun;
begin
  reg:=TRegIniFile.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', true);
  reg.WriteString('Run', 'English Words', paramstr(0));
  reg.CloseKey;
  reg.Free;
end;

В Windows 7 этот же код вызывает исключение: Cannot create key.
Такая директория в реестре существует, и там есть ключи других программ.
Пробовал менять второй параметр в OpenKey на False, ничего не дает.
В чем тут собака порылась?

[_-Re@l-_]

Я делаю как-то так:

procedure WriteRun(AppName: string; on: integer);
var
 Reg: TRegistry;
begin
 Reg := tregistry.create;
 with Reg do begin
 RootKey := hkey_current_user;
 OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
 if on = 1 then
 WriteString(AppName, paramStr(0))
else
 DeleteValue(AppName);
end;
 Reg.CloseKey;
 Reg.Free;
end;

И вроде бы всё норм.

[mutabor]

Спасибо, попробую так.

p.s. Еще раз спасибо, все работает.
Нашел в чем проблема, семерка блочит запись в HKEY_LOCAL_MACHINE. Вот такое исключение возникает:
First chance exception at $75A39617. Exception class ERegistryException with message 'Failed to set data for 'English Words''. Process ew.exe (972)

[Баламут]

Хм... Интересно. А у меня первоначальный вариант прекрасно работает...

[GunSmoker]

За HKEY_LOCAL_MACHINE ногой надо в лицо. Начиная с 2000-го года.

[mutabor]

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

За HKEY_LOCAL_MACHINE ногой надо в лицо. Начиная с 2000-го года.

Ну, это не мне, а автору книги, откуда я это взял.
GunSmoker, какой-то вы агрессивный.

[BOBAH13]

Забудьте про реестр, для чего вам дана папка UserStartup ? А именно \Start Menu\Programs\Startup. Там создаете/удаляете ярлык на ваш .exe файл.

Для особо не верующих, и для тех кто думает о будущем, а не остановился на XP

1. Не требует доступа к реестру, а значит не нужны права администратора, и UAC не будет спрашивать ничего
2. Пользователь самостоятельно сможет спокойно удалить автозапуск вашего приложения, без запуска вашего приложения или других инструментов для чистки "мусорки" (реестра)

[GunSmoker]

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

GunSmoker, какой-то вы агрессивный.

Должно наглядно указывать на глупость этого подхода. А то многие не понимают. (и живёт этот код вот уже 10 лет!)

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

Забудьте про реестр, для чего вам дана папка UserStartup ? А именно \Start Menu\Programs\Startup. Там создаете/удаляете ярлык на ваш .exe файл.

+ 100

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

1. Не требует доступа к реестру, а значит не нужны права администратора, и UAC не будет спрашивать ничего

Смотря где. All users - ещё как требует. User - нет.

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

2. Пользователь самостоятельно сможет спокойно удалить автозапуск вашего приложения, без запуска вашего приложения или других инструментов для чистки "мусорки" (реестра)

+ 100

[_-Re@l-_]

Забудьте про реестр, для чего вам дана папка UserStartup ? А именно \Start Menu\Programs\Startup. Там создаете/удаляете ярлык на ваш .exe файл.

Вот интересно, я её у себя не нашёл.

[GunSmoker]

Сообщение от _-Re@l-_

Вот интересно, я её у себя не нашёл.

Как несложно догадаться - путь написан на коленке, примерно - только чтобы было понятно, о чём идёт речь. И означает этот путь папку Автозагрузка. Кроме того, он может меняться, в зависимости от того, как поставлена система (и какая система).

А получить её можно через SHGetSpecialFolderPath(... CSIDL_STARTUP ...).