Extract_Icon

Синтаксис

Function Extract_Icon(byref sFileName as String, ByVal number As Integer,ByVal colorBk As Integer=&hf0f0f0) as HBITMAP

Описание

Возвращает обработанный битмап из извлеченной иконки, которую в свою очередь, извлекает из файла EXE или DLL

Параметры

sFileName - имя файла EXE или DLL

number - номер иконки в файле

colorBk - цвет BackGround для извлеченной иконки (по умолчанию стоит стандартный цвет окон )

Платформы

Windows

Пример

#Include "window9.bi"
Dim As integer event
Dim As Hbitmap HIMAGE
OpenWindow("1",300,10,100,140)
HIMAGE=Extract_Icon(GetSystemDir & "\SetupAPI.dll",22)
ButtonImageGadget(1,20,10,80,80,HIMAGE, BS_PUSHLIKE Or BS_AUTOCHECKBOX Or BS_BITMAP)
Do
  event=WaitEvent()
  If event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easy EBook and documentation generator