Продолжаем серию «Сделай сам», посвящённую практическому применению Delphi. На этот раз мы поговорим о такой важной составляющей жизни нашего компьютера, как автозагрузка. При загрузке Windows могут запускаться самые разные приложения: от системной панели (вы её можете узнать по характерным для неё часам) до программы оптимизации реестра. Все мы любим устанавливать новые программы. А некоторые из них, дабы мы с ними никогда не расставались, втихую прописывают себя в автозагрузку. Вот и получается, что со временем Windows загружается всё дольше и дольше. А всё потому, что с ней за компанию запускаются различные «удобняшки», антивирусы (а иногда и их анти-сородичи) и т.п.
Вывод из всего вышесказанного: время от времени нужно проводить «зачистку» в автозагрузке. Продвинутыми пользователями это делается при помощи редактора реестра и Блокнота, а все остальные используют специальные программы. Давайте посмотрим, что нам предлагает Windows для управления автозагрузкой. После недолгих поисков была найдена программа MsConfig (лежит она в каталоге …\Windows\System). MsConfig позволяет просматривать список файлов, запускающихся вместе с Windows и удалять элементы из автозагрузки с возможностью восстановления. Программа обрабатывает файл Win.ini, папку «Автозагрузка» и следующие ключи реестра: HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run, HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run и HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices.
Теперь, когда есть с чем сравнить, сделаем свою программу для управления автозагрузкой. Вот что наше творение будет уметь делать к концу статьи: 1) Всё, что умеет MsConfig, за исключением восстановления удалённых из автозагрузки файлов; 2) Добавлять новые файлы в автозагрузку и изменять пути к существующим;
3) Обрабатывать большее количество ключей реестра, чем MsConfig.
Теперь немного теоретических сведений: 1) В Win.ini есть два параметра: Load и Run. Все файлы, имена которых записаны в этих параметрах через пробел, будут загружаться при старте Windows. А значит, в именах файлов не должно быть пробелов. Этого легко добиться при помощи функции sysutils.ExtractShortPathName (filename).
2) В реестре есть «автозагрузочные» ключи с одинаковыми названиями: Run и RunOnce. Одна пара находится в разделе HKEY_LOCAL_MACHINE, а другая – в HKEY_CURRENT_USER. В связи с этим, в нашей программе будем осуществлять переход между разделами при помощи двух компонентов TradioButton (см. рис. 1).
Создайте в Delphi новый проект и поместите на форму PageControl1:TpageControl. Затем на этот компонент поместите ListView1:TlistView. После этого на форму поместите следующие компоненты: ToolBar1:TtoolBar, ImageList1:TimageList, OpenDialog1:TopenDialog, RadioButton1:TradioButton и RadioButton2:TradioButton. Теперь выделите PageControl1 и нажмите правую клавишу мыши. Из появившегося меню выберите пункт New Page. После этого на компоненте должна появиться новая страница. Создайте, таким образом, ещё четыре страницы и дайте каждой название (свойство Caption): 1 – Run, 2 – RunOnce, 3 – RunServices, 4 – RunServicesOnce, 5 – Win.ini. Каждая страница будет отвечать за определённый ключ реестра, либо за файл Win.ini. Теперь выделите ListView1 и, при помощи свойства Columns, создайте две колонки с названиями (свойство Caption) Имя и Путь соответственно, также для каждой колонки установите свойству Autosize значение True. После этого измените значения свойства ViewStyle на vsReport. Затем сделайте активным компонент ToolBar1 и создайте на нём четыре кнопки. Для каждой свойству ShowHint (показывать подсказку) установите значение true (истина), а в свойство Hint запишите эти самые подсказки, которые будут появляться при наведении указателя мыши на ту или иную кнопку: 1 – Добавить файл, 2 – Изменить путь, 3 – Удалить файл, 4 – Автозагрузка. На кнопки, при помощи ImageList1, можно поместить иконки (см. рисунок 1). Чтобы сделать это, выполните следующие действия: кликните двойным щелчком по компоненту ImageList1, при помощи кнопки “Add…” добавьте в компонент нужные значки (каждый значок будет помещён под своим номером), выделите компонент ToolBar1 и в свойстве Images выберите компонент ImageList1. После этого нужно в свойстве ImageIndex каждой кнопки выбрать номер понравившегося значка. Теперь приведите вашу форму к виду, подобному на форму, изображённую на рисунке 1.
На этом внешнее оформление программы завершено, а значит, пора заняться непосредственно программированием. Для начала в разделе Uses подключите два модуля: Registry (для работы с реестром) и IniFiles (для работы с Ini-файлами). После этого нужно объявить несколько глобальных переменных:
var … ActIndex: Integer; //индекс активной страницы Appini: TIniFile; //для работы с Ini-файлами key: Cardinal; //текущий ключ реестра path: String; //путь к файлу reg: TRegistry; //для работы с реестром i: Integer; //используется в циклах pathfile: String; Value, Load, Run: TStringList; //списки файлов автозагрузки
ListItem:TListItem; //для работы с компонентом ListView1
Затем запишите процедуру, которая будет из строки извлекать пути к файлам, разделённые пробелами, и помещает их в список. Позже эта процедура будет востребована.
procedure ExtractFilenames(s: String;FileNames: String;qw: TStrings);
begin {если найдены два пробела, то удаляем один из них} i := pos(‘ ‘, filenames);
while (i 0) do
begin delete(filenames, i, 1); i := pos(‘ ‘, filenames);
end;
i := pos(‘ ‘, filenames); {добавляем в список qw все файлы из строки}
while (i0) do
begin qw.Add(copy(Filenames, 1, i-1)); delete(filenames, 1, i); i := pos(‘ ‘, filenames);
end;
qw.Add(filenames);
end;
Для обработки события OnShow компонента TabSheet1 (мы её назвали «Run») запишите следующую процедуру:
procedure TForm1.TabSheet1Show(Sender: TObject);
begin //очищаем ListView1 ListView1.Items.Clear; //создаём объект для работы с реестром reg := TRegistry.Create; //будем работать в ключе хранящемся в переменной Key reg.RootKey := Key; {открываем ключ, в котором содержатся имена файлов загружаемых при каждом старте Windows и записываем эти в ListBox1} reg.OpenKey(‘Software\Microsoft\Windows\CurrentVersion\Run’, False); reg.GetValueNames(value);
for i := 0 to value.Count-1 do
with ListView1 do
begin ListItem := Items.Add; ListItem.Caption :=Value.Strings[i]; ListItem.SubItems.Add(reg.ReadString(Value.Strings[i]));
end;
//освобождаем память, выделенную под объект reg reg.Free;
end;
Процедура события OnShow компонента TabSheet2: Всё то же самое, только открываем другой ключ реестра: … reg.OpenKey(‘Software\Microsoft\Windows\CurrentVersion\RunOnce’, False); … Обработка события OnShow компонента TabSheet3: То же, что и в предыдущих процедурах, но открываем ключ реестра, в котором хранятся имена сервисов, которые запускаются вместе с Windows: … reg.OpenKey(‘Software\Microsoft\Windows\CurrentVersion\RunServices’, False); … Обработка события OnShow компонента TabSheet4: Открываем ключ реестра, в котором хранятся имена сервисов, которые запустятся только один раз при ближайшей перезагрузки Windows: … reg.OpenKey(‘Software\Microsoft\Windows\CurrentVersion\RunServicesOnce’, False);
…
Процедура обработки события OnShow компонента TabSheet5:
procedure TForm1.TabSheet5Show(Sender: TObject);
begin ListView1.Items.Clear; load.Clear; run.Clear; //получаем доступ к файлу Win.ini AppIni := TIniFile.Create(‘Win.INI’); //читаем пути к файлам из строки Load path := appini.ReadString(‘windows’, ‘Load’, »); //удаляем все ведущие пробелы
while (path[1]= ‘ ‘) do
delete(path, 1, 1); //записываем пути к файлам в список Load
if (path ») then
ExtractFileNames(‘Load’, path, Load); {теперь всё это повторяем со строкой “Run” и записываем их в список Run} path := appini.ReadString(‘windows’,’Run’, ‘error’);
while (pos(‘ ‘, path) = 1) do
delete(path, 1, 1);
if (path ») then
ExtractFileNames(‘Run’,path,Run); AppIni.Free; {отображаем пути ко всем файлам из списков Run и Load в ListView1}
for i:=0 to Load.Count-1 do
with ListView1 do
begin ListItem := Items.Add; ListItem.Caption :=’Load’; ListItem.SubItems.Add(Load.Strings[i]);
end;
for i:=0 to Run.Count-1 do
with ListView1 do
begin ListItem := Items.Add; ListItem.Caption :=’Run’; ListItem.SubItems.Add(Run.Strings[i]);
end;
end;
Обработка события OnClick компонента RadioButton1:
procedure TForm1.RadioButton1Click(Sender: TObject);
begin {если текущий ключ не HKEY_LOCAL_MACHINE, то делаем его активным и, если нужно, обновляем информацию в ListBox1}
if Keywindows.HKEY_LOCAL_MACHINE then
begin key := Windows.HKEY_LOCAL_MACHINE;
if PageControl1.ActivePageIndexthen
PageControl1.ActivePage.OnShow(self);
end;
end;
Обработка события OnClick компонента RadioButton1:
procedure TForm1.RadioButton2Click(Sender: TObject);
begin {если текущий ключ не HKEY_CURRENT_USER, то делаем его активным и, если нужно, обновляем информацию в ListBox1}
if Keywindows.HKEY_CURRENT_USER then
begin key := Windows.HKEY_CURRENT_USER;
if PageControl1.ActivePageIndex