Мне нужно вытащить иконку из *.exe файла, на который ссылается ярлык (*.lnk). Определить путь к файлу и номер иконки в нем я могу:
- Код: Выделить всё
'Входные параметры: strlnkPath- полный путь ярлыка
' stricoPath- полный путь файла *.ico, в который нужно сохранить иконку
sub ReadIcon (strlnkPath, stricoPath)
Set WshShell = CreateObject("WScript.Shell")
Set oShellLink = WshShell.CreateShortcut(strlnkPath)
'получаем путь к приложению , которое запускает ярлык и
'номер иконки, которую видно когда смотрим на ярлык в Explorere:
strIconNo=oShellLink.IconLocation
'дальше нужно как-то сохранить иконку в файл stricoPath
'
'...как это сделать?
'
end sub
а вот как именно получить иконку и сохранить ее в файл?
Видимо без API не обойтись?
Да, еще: мне нельзя использовать всякие элементы управления типа PictureBox и пр. для промежуточного размещения иконки, так как я пишу сценарий на VBScript для Windows Script Host, однако использование функций API допустимо, я использую обертку для обращения к ним.
)
