Excel. Трюки и эффекты
Шрифт:
Рис. 7.9. Форма после определения варианта режима запуска приложения
Листинг 7.16.
Определение режима запуска приложения
procedure TForm1.GetRunMode;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
//Определение, как запускается программа (по наличию значений
//в соответствующих разделах)
if reg.OpenKey(\'Software\Microsoft\Windows\CurrentVersion\Run\',
False)
then
begin
if reg.ValueExists(Application.Title) then
begin
//Программа есть в разделе Run —
//запускается
optAutoRun.Checked := True;
reg.CloseKey;
Exit;
end;
reg.CloseKey;
end;
if reg.OpenKey(\'Software\Microsoft\Windows\CurrentVersion\
RunOnce\', False)
then
begin
if reg.ValueExists(Application.Title) then
begin
//Программа есть в разделе RunOnce —
//запускается один раз при старте Windows
optRunOnce.Checked := True;
reg.CloseKey;
Exit;
end;
reg.CloseKey;
end;
//Автозапуск программы (рассматриваемым способом) не включен
optRunNone.Checked := True;
reg.Free;
end;
Параметры запуска изменяются (в рассматриваемом приложении) при нажатии кнопки Применить (листинг 7.17).
Листинг 7.17. Применение режима запуска
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.
Листинг 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.
Отмена быстрого запуска приложения
procedure UnregisterQuickStart;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
//Удаляем сведения о программе из реестра
reg.DeleteKey(paths + \'\\' + Application.Title + \'.exe\');
reg.Free;
end;
В приведенных выше листингах значение константы paths равно:
const paths = \'SOFTWARE\Microsoft\Windows\CurrentVersion\AppPaths\
Регистрация типов файлов
Теперь рассмотрим вопрос, нередко интересующий программистов, приложения которых должны уметь сохранять и загружать данные из файлов. Логично задавать всем таким файлам одно расширение: получается тип файлов приложения.
Открытие файлов (документов) приложения из самого приложения организовать несложно: достаточно применить диалог открытия файла. Но как заставить, например, Проводник автоматически запускать наше приложение при выборе соответствующего файла? Сделать это тоже несложно: достаточно внести небольшие изменения в раздел реестра HKEY_CLASSES_ROOT.
Итак, перечень операций, которые нужно произвести для регистрации собственного типа файла (пусть, MYDOC).
1. Создать раздел HKEY_CLASSES_ROOT\.mydoc, в параметр (По умолчанию) которого записать имя типа файла, например TricksDelphi. DocumentSample.
2. Создать раздел HKEY_CLASSES_ROOT\<HMH_THna>, например HKEY_CLASSES_ ROOT\TricksDelphi. DocumentSample. Если в параметр (По умолчанию) этого раздела записать строку, то она будет отображаться в качестве описания типа файла.
3. Если нужно, чтобы для документа использовался определенный значок, необходимо создать раздел HKEY_CLASSES_ROOT\<HMH_THna>\DefaultIcon, в параметр (По умолчанию) которого записать полный путь ЕХЕ-или DLL-файла, из которого брать значок, и через запятую – номер значка (см. гл. 4).
4. Наконец, для автоматического запуска приложения при выборе файла заданного типа создаем paздeлHKEY_CLASSES_ROOT\<имя_типa>\Shell \Open\Command, в параметр (По умолчанию) которого записываем строку вида <путь_приложения> %1 для передачи имени документа в командной строке.
Пример процедуры, которая производит все вышеперечисленные манипуляции, приводится в листинге 7.20.
Листинг 7.20.
Регистрация типа файла
procedure RegisterAppDocuments;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
//Вносим информацию о нашем типе файла в реестр
//..само расширение
if reg.OpenKey(\'.mydoc\', True) then
begin
reg.WriteString(\'\', \'TricksDelphi.DocumentSample\');
reg.CloseKey;
end;
//..описание типа файла
if reg.OpenKey(\'TricksDelphi.DocumentSample\', True) then
begin
reg.WriteString(\'\', \'Документ TricksDelphi.DocumentSample\');
reg.CloseKey;
end;
//..значок для файлов MYDOC-типа
if reg.OpenKey(\'TricksDelphi.DocumentSample\DefaultIcon\', True)
then
begin
reg.WriteString(\'\', Application.ExeName + \', 1\');
reg.CloseKey;
end;
//..приложение, открывающее MYDOC-документ
if reg.OpenKey(\'TricksDelphi.DocumentSample\Shell\Open\Command\',
True)
then
begin
reg.WriteString(\'\', Application.ExeName + \' %1\');
reg.CloseKey;
end;
reg.Free;
end;
Результат работы этой процедуры показан на рис. 7.10.
Рис. 7.10. Результат регистрации типа файла
Теперь при выборе в файловой оболочке наше приложение запускается с путем выбранного файла (правда, в формате 8.3) в качестве аргумента командной строки. Как перевести путь из короткой формы в длинную (если это вообще надо), рассказано в разд. 4.2. Если вы не знакомы с тем, как получать доступ к аргументам командной строки, можете взглянуть на листинг 7.21 (тут происходит отображение имени открываемого файла в текстовом поле на форме).