rundll32 AppWiz.Cpl, NewLinkHere %1 - запуск мастера создания нового ярлыка, где %1 - путь к исходному файлу.

--------------------------------------------------------------------------

Надо занести в ФАК эту команды и ещё некоторые:

========================================

rundll32 desk.cpl, InstallScreenSaver [filename.scr] - задать файл скринсейвера в диалоговом окне свойств дисплея.
rundll32 diskcopy, DiskCopyRunDll - вызов диалог "Копирование диска".
rundll32 IEdkcs32.dll, Clear - сброс некоторых настроек Internet Explorer, полезно использовать при некоторых сбоях в работе обозревателя.
rundll32 keyboard,disable - отключение клавиатуры, действует вплоть до следующей перезагрузки.
rundll32 krnl386.exe, exitkernel - выгрузить ядро системы, выход из Windows.
rundll32 mouse,disable - отключение мыши вплоть до перезагрузки.
rundll32 mshtml.dll, PrintHTML "HtmlFileName
AndPath" - распечатать документ HTML, где "HtmlFileNameAndPath" - путь к файлу и его имя.
rundll32 мсprint2.dll, RUNDLL_PrintTestPage - распечатать тестовую страницу на принтере.
rundll32 netplwiz.dll, AddNetPlaceRunDll - вызов мастера подключения нового сетевого ресурса "Add Network Place Wizard".
rundll32 netplwiz.dll, NetAccWizRunDll - запуск мастера сетевой идентификации "Network Identification Wizard".
rundll32 printui.dll, PrintUIEntry /y /n "[Printer Display Name]" - назначить принтер по умолчанию.
rundll32 rnaui.dll,RnaDial СОЕДИНЕНИЕ - вызвать диалог "Установка связи" (Connect To) для установки соединения, обозначенного в папке "Удаленный доступ" как "СОЕДИНЕНИЕ" (учет регистра букв в названии соединения обязателен).
rundll32 rnaui.dll, RnaWizard - вызов мастера создания нового соединения удаленного доступа.
rundll32 rnaui.dll, RnaWizard /1 - вызов мастера создания нового соединения удаленного доступа без отображения начального окна.
rundll32.exe rnaserv, CallerAccess - запустить сервер удаленного доступа.
rundll32 setupwbv.dll, IE5Maintenance "C:\Program Files\Internet Explorer\Setup\SETUP.EXE" /g "%SystemRoot%\IE Uninstall Log.Txt" - запуск утилиты восстановления Internet Explorer, используется при сбоях браузера.
rundll32 shell, ShellExecute - открыть в Проводнике папку "Рабочий стол".
rundll32 shell32, Control_FillCache_RunDLL - запустить начальную инициализацию Панели управления.
rundll32 shell32, Control_RunDLL - открыть в Проводнике папку "Панель управления".
rundll32 shell32, Control_RunDLL appwiz.cpl,,n - вызов диалогового окна "Установка и удаление программ", в котором будет открыта вкладка с номером "n" (от 1 до 3). По аналогии при указании вместо appwiz.cpl или access.cpl другого CPL-файла будет открыт соответствующий диалог Панели управления и заданная страница диалога. Имеется несколько исключений, приведенных ниже.
rundll32 shell32, Control_RunDLL main.cpl @0 - открыть диалог "Свойства мыши".
rundll32 shell32, Control_RunDLL main.cpl @1 - открыть диалог "Свойства клавиатуры".
rundll32 shell32, Control_RunDLL main.cpl @2 - открыть папку "Принтеры".
rundll32 shell32, Control_RunDLL main.cpl @3 - открыть папку "Шрифты".
rundll32 shell32, Control_RunDLL main.cpl @4 - открыть диалог PC Cards (PCMCIA) Properties или "Свойства электропитания".
rundll32 SHELL32, Control_RunDLL modem.cpl,,
add - установка нового модема.
rundll32 shell32, Control_RunDLL timedate. cpl,,/f - открыть вкладку Time Zone диалогового окна свойств времени Панели управления.
rundll32 shell32, OpenAs_RunDLL - вызвать диалог "Открыть с помощью...". При указании аргумента, соответствующего имени и расширению некоего файла - rundll32 shell32, OpenAs_RunDLL filename.ext (например, rundll32.exe shell32.dll,OpenAs_RunDLL README.TXT) - можно будет открыть конкретный файл и сопоставить данному расширению необходимое приложение.
rundll32 shell32, ShellAboutA - информация о версии Windows.
rundll32 shell32, SHExitWindowsE x 0 - закрыть все программы, перегрузить оболочку (завершение сеанса, Log Off).
rundll32 shell32, SHExitWindowsE x 1 - выключить ПК (Shutdown).
rundll32 SHELL32, SHExitWindowsEx -1 - перегрузить оболочку Windows.
rundll32 shell32, SHExitWindowsE x 2 - перегрузить ПК (Reboot).
rundll32 shell32,SHExitWindowsE x 4 - принудительно закрыть все программы (Force).
rundll32 shell32,SHExitWindowsE x 8 - выход из Windows и выключение ATX-совместимого ПК (Power off).
rundll32 shell32, SHFormatDrive - вызов диалога форматирования диска А:.
rundll32 SHELL32, SHHelpShortcuts_RunDLL AddPrinter - запуск мастера установки принтера "Add New Printer wizard".
rundll32 shell32, SHHelpShortcuts_RunDLL Connect - запуск мастера подключения сетевого диска "Map Network Drive wizard".
rundll32 SHELL32, SHHelpShortcuts_RunDLL FontsFolder - открыть папку "Шрифты".
rundll32 SHELL32, SHHelpShortcuts_RunDLL PrintersFolder - открыть папку "Принтеры".
rundll32 SHELL32, SHHelpShortcuts_RunDLL PrintTestPage - распечатать тестовую страницу.
rundll32 SYNCUI.DLL, Briefcase_Create - создать новую папку "Портфель", если эта функция установлена в системе.
rundll32 syncui.dll, Briefcase_Intro - вызов справки по работе с "Портфелем".
rundll32 sysdm.cpl, InstallDevice_Rundll - вызов мастера установки оборудования.
rundll32 SysDM.cpl, InstallDevice_RunDLL [DeviceID] - установить новое оборудование конкретного типа [DeviceID] - узнать тип

Ответить

Посмотри, я где-то отвечал на этот вопрос, в начале формума...

Там действителтно прораммно оздаются ярлычки. (правда через какой-то скрипт)

Посмотри, не пожалеешь!

Ответить

'Ещё один хороший способ создания ярлыка

Public Sub CreateShortcut(ByVal SCPath As String, ByVal SCName As String, ByVal FilePath As String, Optional HotKey As String, Optional SHIcon As String, Optional SHWorkingDirectory As String, Optional SHDescription As String, Optional WindowStyle As Integer = vbNormalFocus)

Dim WshShell As Object

Dim oShellLink As Object

Dim sLinkPath As String

Set WshShell = CreateObject("WScript.Shell")

On Error GoTo 0

Set oShellLink = WshShell.CreateShortcut(SCPath & SCName & ".lnk")

oShellLink.WindowStyle = WindowStyle

oShellLink.HotKey = HotKey

oShellLink.TargetPath = SCPath

oShellLink.IconLocation = SHIcon

oShellLink.Description = SCDescription

oShellLink.WorkingDirectory = SHWorkingDirectory

oShellLink.Save

Set oShellLink = Nothing

Set WshShell = Nothing

End Sub

Private Sub Form_Load()

Dim shFolder As String

shFolder = "C:\" 'или "Desktop", "StartMenu", "StartUp", "Programs" и т.д.

CreateShortcut shFolder, "Калькулятор", "calc.exe", "CTRL+SHIFT+C", "calc.exe,0", , "Калькулятор Windows"

End Sub

Ответить

Ответить