Главная      Эл. книги      Для программиста      Софт      Галерея      Ссылки      О сайте
    

Сегодня:

При полном или частичном использовании материалов сайта ссылка на источник обязательна!

Copyright © Matyushchenko A., 2008. All rights reserved.

Delphi (TurboPascal, Kylix)

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

Опишем процедуру занесения программы в автозапуск. Все довольно просто и понятно:

procedure Reg_Start(FilePath_:string;); var hKey: string; RegIni: TRegIniFile; begin if aRunOnce then hKey := 'Once' else hKey := ''; RegIni := TRegIniFile.Create('Software'); RegIni.OpenKey('Software', true); RegIni.OpenKey('Microsoft', true); RegIni.OpenKey('Windows', true); RegIni.OpenKey('CurrentVersion', true); RegIni.RootKey := HKEY_LOCAL_MACHINE; RegIni.WriteString('Software\Microsoft\Windows\CurrentVersion\Run' + hKey + #0, FilePath_); RegIni.Free; end;

4.12.2008

Автор - Matyushchenko A.
Сайт - www.ENTERcode.narod.ru