Автозагрузка программы

Во время запуска программы пропишем её в реестр Windows, в раздел  автозагрузки

[cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»]

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var
reg: TRegistry;
path: string;
begin
path := Application.EXEname; // узнаем путь к программе и ее имя
reg := TRegistry.Create; // открываем реестр
reg.RootKey := HKEY_CURRENT_USER; // ветка текущего пользователя
if reg.OpenKey(‘\Software\Microsoft\Windows\’ + ‘CurrentVersion\Run’, True)
then // открываем раздел автозагрузки
begin
reg.WriteString(‘Joker’, path);
// записываем ссылку на нашу программу в автозагрузку
reg.CloseKey; // закрываем реестр
end;
reg.Free; // освобождаем память
end;

[/cc]

Нашли ошибку в тексте?

Автозагрузка программы: 4 комментария

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *