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

Советы » Реестр » Добавление программы в автозапуск

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(
'SoftwareMicrosoft'
+ 'WindowsCurrentVersionRun' + sKey + #0,
sProgTitle,
sCmdLine );
reg.Free;
end

;

// Например
RunOnStartup('Title of my program','MyProg.exe',False ); Примечание. Этот пример удобно использовать при написании деинсталляторов - добавить однократный вызов деинсталлятора и запросить от пользователя перезагрузку. Этот прием позволит безболезненно удалять DLL и им подобные файлы, которые обычном способом удалить невозможно (они загружены в силу того, что использовались деинсталлируемой программой или работают в момент деинсталляции).

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com