| Вопрос: Ярлычки | Добавлено: 18.03.06 20:14 |
Автор вопроса:  yxaxa
|
| Как сделать чтоб на форме отображались ярлычки? |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  EROS Вопросов: 58 Ответов: 4255  |
Профиль | | #1 | Добавлено: 19.03.06 02:49 |
|
1.Берешь ярлык
2.Кладешь его на форму |
||
|
Номер ответа: 2 Автор ответа: yxaxa Вопросов: 31 Ответов: 25 |
Профиль | | #2 | Добавлено: 19.03.06 11:50 |
| 3.14здец как умно. Кто нить норм объянит? | ||
|
Номер ответа: 3 Автор ответа: EROSВопросов: 58 Ответов: 4255 |
Профиль | | #3 | Добавлено: 19.03.06 12:13 |
|
3.14здец как умно
Каков вопрос-таков ответ.. Ты,для начала, вопрос умно задай! Где и на каком этапе у тебя грабли? Что конкретно у тебя не получается? Или ты ждешь,что кто-нибудь напишет тебе готовый код? |
||
|
Номер ответа: 4 Автор ответа: yxaxaВопросов: 31 Ответов: 25 |
Профиль | | #4 | Добавлено: 19.03.06 17:51 |
|
просто я вообще не представляю что же нужно делать.
если нужно юзать данные из lnk подскажите что там и как. типа первые стока та байт отвечают за путь, а то в инете норм описания формата не нашел. если же какие то функции есть то подскажите какие. |
||
|
Номер ответа: 5 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #5 | Добавлено: 19.03.06 19:50 |
| Ищи примеры работы с IShellLink | ||
|
Номер ответа: 6 Автор ответа: EROSВопросов: 58 Ответов: 4255 |
Профиль | | #6 | Добавлено: 19.03.06 23:17 |
|
Добавляем ссылку на COM-объект
"Windows Script Host Object Model" (IWshRuntimeLibrary.dll)
Импортируем пространство имен: Imports IWshRuntimeLibrary
Используем: 'Путь к Рабочему столу
Dim DesktopDir As String = My.Computer.FileSystem.SpecialDirectories.Desktop 'Путь к ярлыку (*.lnk) Dim MyLink As String = Path.Combine(DesktopDir, "Мой Ярлык.lnk" 
'Создаем объекты Dim WshShell As New WshShellClass Dim ShortCut As IWshShortcut Try 'Читаем данные ярлыка ShortCut = WshShell.CreateShortcut(MyLink) With ShortCut Debug.IndentLevel = 1 Debug.WriteLine(""
Debug.WriteLine("===== Shotcut Info ====="
Debug.WriteLine("Arguments: " & .Arguments) Debug.WriteLine("  escription: " & .Description)
Debug.WriteLine("FullName: " & .FullName) Debug.WriteLine("Hotkey: " & .Hotkey) Debug.WriteLine("IconLocation: " & .IconLocation) Debug.WriteLine("TargetPath: " & .TargetPath) Debug.WriteLine("WindowStyle: " & .WindowStyle) Debug.WriteLine("WorkingDirectory: " & .WorkingDirectory) Debug.WriteLine("========================"
End With Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally 'Убиваем COM-объекты ShortCut = Nothing WshShell = Nothing End Try 'Примечание: Вызвав метод Save() объекта IWshShortcut можешь создать новый ярлык |
||
Страница: 1 |