Создание ярлыка файла программно

На Рабочем столе

Код 1C v 8.х

  Shell = Новый COMОбъект("WScript.Shell");

РабочийСтол =  Shell.SpecialFolders("Desktop");

Ярлык = Shell.CreateShortcut(РабочийСтол + "\\Regedit.lnk");

Ярлык.TargetPath = Shell.ExpandEnvironmentStrings("%windir%\\regedit.exe");

Ярлык.WorkingDirectory = Shell.ExpandEnvironmentStrings("%windir%");

Ярлык.WindowStyle = 1;

Ярлык.IconLocation = Shell.ExpandEnvironmentStrings("%windir%\\regedit.exe, 0");

Ярлык.Save();

Код 1C v 7.x

  Shell = СоздатьОбъект("WScript.Shell");

РабочийСтол = Shell.SpecialFolders("Desktop");

Ярлык = Shell.CreateShortcut(РабочийСтол + "\\Regedit.lnk");

Ярлык.TargetPath = Shell.ExpandEnvironmentStrings("%windir%\\regedit.exe");

Ярлык.WorkingDirectory = Shell.ExpandEnvironmentStrings("%windir%");

Ярлык.WindowStyle = 1;

Ярлык.IconLocation = Shell.ExpandEnvironmentStrings("%windir%\\regedit.exe, 0");

Ярлык.Save();

Разместил: E_Migachev Версии: | 7.x | 8.x | Дата: 19.03.2010 Прочитано: 15292

Возможно, вас также заинтересует

Похожие FAQ

Где находится файл лицензии 1С 24
Многие спрашивают А где хранится лицензия на 1С: Предприятие 8? или Где посмотреть лицензионный ключ в 1С? В 1С информацию о полученной лицензии можно посмотреть нажав «Справка» — «О программе» В разделе Лицензия: сначала идет клиентская лиценз

Где список открытых окон (документов, справочников) в такси? 2
В текущей работе пользователь обычно открывает несколько объектов. Это может быть документ, справочник, отчет и т.д. В предыдущем интерфейсе не было проблем быстро найти открытый объект и актуализировать его для дальнейшей работы используя окна или

Журнал регистрации 0
Журнал регистрации относится к информационной базе и служит для сохранения информации о событиях, возникающих в процессе работы пользователей с данной информационной базой . Эта информация может быть важной с организационной точки зрения , но не

Как настроить отображение даты? Год - 4 символа? 0
Есть сотрудник 1946 года рождения. Программа не пропускает этот год, а выдает 2046 год. И, соответствено, выдает ошибку. Изменить год начала рабочего столетия и поменять количество символов в представлении даты. Делается в Сервис - параметры .

Как получить путь к Рабочему столу Пользователя? 4
Ctrl = Новый COMОбъект(" MSScriptControl.ScriptControl" ); Ctrl.Language = " vbscript" ; Ctrl.AddCode(" |Function SpecialFolder() | Set Shell = CreateObject(" " WScript.Shell" " ) | SpecialFolder = Shell.RegRead(" " HKEY_CURRENT_USERSof

Посмотреть все результаты поиска похожих

Еще в этой же категории

Ключевые слова и Изображения

Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.