| 'Declares for IconExtractor Const GWW_HINSTANCE = (-6) Declare Function GetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer Declare Function ExtractIcon Lib "shell" (ByVal lpHandle As Integer, ByVal lpExe As String, ByVal lpiconindex As Integer) As Integer Declare Function DrawIcon Lib "USER" (ByVal lpHandle As Integer, ByVal xcoord As Integer, ByVal ycoord As Integer, ByVal Hicon As Integer) As Integer Sub IconExtractor (ExeFile$, F as Form, Pic as Picture) Handle = F.hWnd z = SCREEN.HEIGHT Select Case z Case 7000 X = 2: Y = 1 Case 7200 X = 3: Y = 0 Case 9000 X = 3: Y = 0 Case Is > 9000 X = 8: Y = 4 End Select Static Looper Looper = Looper + 1 Inst = GetWindowWord(Handle, GWW_HINSTANCE) Hicon = ExtractIcon(Inst, ExeFile$, Looper - 1) If Hicon = 0 Then If Looper > 0 Then Hicon = ExtractIcon(Inst, ExeFile$, 0) Looper = 1 Else Beep: Exit Sub End If End If F.Pic.CLS Draw = DrawIcon(F.Pic.hDC, X, Y, Hicon) End Sub |
Extracts icons from a specified Exe file |
India web developer web development India | India web development company India ecommerce web developer