Читаем Delphi. Трюки и эффекты полностью

procedure TForm1.cmbApplyClick(Sender: TObject);

var

reg: TRegistry;

begin

reg := TRegistry.Create();

reg.RootKey := HKEY_LOCAL_MACHINE;

//Отмена прошлого режима

//..удаление параметра из раздела Run

if not optAutoRun.Checked then

if reg.OpenKey(\'Software\Microsoft\Windows\CurrentVersion\

Run\', False)

then

begin

reg.DeleteValue( Application.Title );

reg.CloseKey();

end;

//..удаление параметра из раздела RunOnce

if not optRunOnce.Checked then

if reg.OpenKey(\'Software\Microsoft\Windows\CurrentVersion\

RunOnce\',False)

then

begin

reg.DeleteValue( Application.Title );

reg.CloseKey();

end;

//Установка нового режима (создание параметра в соотвествующем

//разделе)

if optAutoRun.Checked then

//..добавление параметра в раздел Run

if reg.OpenKey(\'Software\Microsoft\Windows\CurrentVersion\

Run\', True)

then

begin

reg.WriteString( Application.Title, Application.ExeName);

reg.CloseKey();

end;

if optRunOnce.Checked then

//..добавление параметра в раздел RunOnce

if reg.OpenKey(\'Software\Microsoft\Windows\CurrentVersion\

RunOnce\',True)

then

begin

reg.WriteString( Application.Title, Application.ExeName);

reg.CloseKey();

end;

//Для верности обновим показания на форме по данным из реестра

GetRunMode();

reg.Free();

end;

При желании вы можете изменить ветвь реестра на HKEY_CURRENT_USER, если приложение (которое вы будете делать) запускалось только для определенных пользователей.

Запуск приложения из командной строки

Сразу оговоримся, что из командной стр оки (например, из окна Запуск программы, открываемого командой Пуск → Выполнить) можно запустить любое приложение: достаточно только ввести его полный или относительный (относительно рабочей папки) путь. Однако, возможно, вы замечали, что некоторые приложения можно запускать, просто вводя в командной строке имя приложения, например msaccess или winword. Займемся обеспечением возможности запуска приложения таким ускоренным способом.

Чтобы зарегистрировать приложение для быстрого запуска, можно поместить его путь в ветвь реестра SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths корневого раздела HKEY_CURRENT_USER ИЛИ HKEY_LOCAL_MACHINE. Путь ЕХЕ-файла приложения должен быть записан в параметр (По умолчанию) подраздела, имеющего такое же имя, как и ЕХЕ-файл приложения (включая расширение).

Пример процедуры, регистрирующей приложение для быстрого запуска, приведен в листинге 7.18.

...

Регистрация приложения для запуска из командной строки

procedure RegisterQuickStart();

var

reg: TRegistry;

begin

reg := TRegistry.Create();

reg.RootKey := HKEY_LOCAL_MACHINE;

//Регистрируем программу для запуска по имени из

//командной строки

if reg.OpenKey(paths + \'\\' + Application.Title + \'.exe\', True)

then

begin

reg.WriteString(\'\', Application.ExeName);

reg.CloseKey();

end;

reg.Free();

end;

Для отмены быстрого запуска приложения из командной строки можно воспользоваться процедурой, приведенной в листинге 7.19.

...