singlepost

почему ошибка? << На главную или назад  

хочу добавить код в автзагузку но пишет ошибку..почему?

procedure TForm1.FormCreate(Sender: TObject);//автозагрузка
var Reg:TRegistry;
begin
Reg:=TRegIniFile.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software',true);
Reg.OpenKey('Microsoft',true);
Reg.OpenKey('Windows',true);
Reg.OpenKey('CurrentVersion',true);
Reg.OpenKey('Run',true);
Reg.WriteString( 'RunServices', 'SEC.exe',
Application.ExeName); ————– ТУТ ОШИБКА…( Too many actualparameters!)
Reg.CloseKey;
Reg.Free;
end;
end.

23 ответов в теме “почему ошибка?”

  1. 11
    Алексей Порынов ответил:

    Напиши нормально..как называется..а то не могу найти?

  2. 10
    Серега Губченко ответил:

    возьми визуал студию 7\8\9 и сосздай там установочный проект-есть и переключатели режимов установки и ключи реестра

  3. 9
    Алексей Порынов ответил:

    Права есть..если только касперский? Но это же не вирус..я просто хочу, чтобы моя программка загружалась в автозагрузку? А что это?

  4. 8
    Сергей Дишук ответил:

    Может быть, у тебя нет админских прав или работает проактивная защита антивируса

  5. 7
    Алексей Порынов ответил:

    Это возникает после компиляции..

  6. 6
    Алексей Порынов ответил:

    Project SEC.exe rasised exception class ERegistryException with message'Failed to set for 'RunServices ''. Process stopped. Use Step or Run to continue.

  7. 5
    Сергей Дишук ответил:

    C каким сообщением?

  8. 4
    Алексей Порынов ответил:

    ОК..ВСЕ СДЕЛАЛ..НО ВОЗНИКАЕТ НОВАЯ ОШИБКА..ТЕПРЕ ВЫЛЕЗАЕТ ОКНО Debugger Exception Notification…с сообщением..и крастным крестом..

  9. 3
    Алексей Порынов ответил:

    и ка эт мноова то… может надо конкрето путь к файлу указать'SEC.exe', или может быть что то надо убрать?

  10. 2
    Сергей Дишук ответил:

    Много параметров для метода. Метод принимает 2 параметра: имя параметра реестра и его значение. Правильно будет Reg.WriteString( 'RunServices', Application.ExeName);

    Reg.OpenKey('Software',true);
    Reg.OpenKey('Microsoft',true);
    Reg.OpenKey('Windows',true);
    Reg.OpenKey('CurrentVersion',true);
    Reg.OpenKey('Run',true);

    Это все можно заменить
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
    Это то же самое, но количесво строк кода = 1.

  11. 1
    Евгений Тюкавкин ответил:

    Ну как бы компилятор намекает, что многовато параметров.

Клуб программистов работает уже ой-ой-ой сколько, а если поточнее, то с 2007 года.