FAQ - Добавление программы в автозапуск.

SPROGTITLE: Название для программы
SCMDLINE: Имя EXE файла с путем доступа
BRUNONCE:  Запустить только один раз или постоянно при загрузке WINDOWS

PROCEDURE RUNONSTARTUP(SPROGTITLE, SCMDLINE : STRING; BRUNONCE : BOOLEAN );
VAR
  SKEY : STRING;
  REG  : TREGINIFILE;
BEGIN
  IF( BRUNONCE )THEN SKEY := 'ONCE'
  ELSE SKEY := '';
  REG := TREGINIFILE.CREATE( '' );
  REG.ROOTKEY := HKEY_LOCAL_MACHINE;
  REG.WRITESTRING(
    'SOFTWARE\MICROSOFT'
    + '\WINDOWS\CURRENTVERSION\RUN' 
    + SKEY + #0,
    SPROGTITLE,
    SCMDLINE );
  REG.FREE;
END;

// Например
RUNONSTARTUP('TITLE OF MY PROGRAM','MYPROG.EXE',FALSE );

Примечание. Этот пример удобно использовать при написании деинсталляторов - добавить однократный вызов деинсталлятора и запросить от пользователя перезагрузку. Этот прием позволит безболезненно удалять DLL и им подобные файлы, которые обычном способом удалить невозможно (они загружены в силу того, что использовались деинсталлируемой программой или работают в момент деинсталляции).

1.

Аноним

1 июня 2004, 15:18:54

А как сделать это же на Вижл Бейсик?