|
|
|
Supreme Being
участник
Last Login: 17.06.2000 2:39
Сообщ.: 257,
Visits: 2 861
|
|
Может ли, например, API вытащить иконку из .exe-файла?
Спасибо заранее.
|
|
|
|
|
новичок
участник
Last Login: 14.05.2000 5:59
Сообщ.: 7,
Visits: 78
|
|
http://www.basta.com/Software.htm
Извини, насчёт Api ничего не подскажу, но на всякий случай зайди на этот адрес и скачай
прогу ExIcon. Тащит иконы со всего что можно
может пригодится!
|
|
|
|
|
Junior Member
участник
Last Login: 25.05.2000 20:41
Сообщ.: 10,
Visits: 111
|
|
Запрост и не только из exe'шников, но и из любого файла, который непосредственно содержит иконку!
Создай Модуль и вставь туды:
Global lngIcon
Global strProgram
Global strSaveIconFile
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst _
As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Declare Function DrawIcon Lib "user32" (ByVal hDC As Long, ByVal x As Long, _
ByVal y As Long, ByVal hIcon As Long) As Long
Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Public Function OpenIcon(path As String, IconInd As Integer, lpPicture As PictureBox)
lngIcon = ExtractIcon(App.hInstance, path, IconInd)
DrawIcon lpPicture.hDC, 0, 0, lngIcon
End Function
----
Ну понятно использование, функции передаешь путь к файлу, Индекс иконки (начиная с 0), и объект picturebox)
Индекс нужен для того, если в файле несколько иконок, вытащить именно нужную.
|
|
|
|
|
Supreme Being
участник
Last Login: 17.06.2000 2:39
Сообщ.: 257,
Visits: 2 861
|
|
Наивно, наверное...
Может, еще и VB-код можно вытащить из .exe, написанного на Basik'e?
|
|
|
|
|
Junior Member
участник
Last Login: 25.05.2000 20:41
Сообщ.: 10,
Visits: 111
|
|
| Ну это действительно наивно, здесь тебе придется ручками поработать, анализировать код по битно! Не все же за тебя API'шки должны делать.
|
|
|
|
|
Supreme Being
участник
Last Login: 17.06.2000 2:39
Сообщ.: 257,
Visits: 2 861
|
|
| Я, честно говоря, не представляю, как так "по-битно".
|
|
|
|