HelpF.pro

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

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

Код 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();

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq7/view/559.html