Print Page - Capture Icon (and save it as Bitmap into the clipboard)

Title: Capture Icon (and save it as Bitmap into the clipboard)
Post by: Patrice Terrier on October 25, 2008, 04:59:02 PM

This one extract an icon from any FullPath.exe or dll.
Then the icon is saved on the fly into the clipboard as bitmap.

Code Select


SUB CaptureIcon(lpszFile AS ASCIIZ)
    LOCAL hIconLarge, hIconSmall AS DWORD
    IF ExtractIconEx(lpszFile, -1, 0, 0, 0) THEN
       'CALL ExtractIconEx(lpszFile, 0, hIconLarge, hIconSmall, 1)
       CALL ExtractIconEx(lpszFile, 0, hIconLarge, hIconSmall, 1)
       LOCAL ii AS ICONINFO
       IF hIconLarge THEN
          CALL GetIconInfo(hIconLarge, ii)
       ELSE
          CALL GetIconInfo(hIconSmall, ii)
       END IF
       IF OpenClipboard(BYVAL 0) THEN
          CALL EmptyClipboard()
          CALL SetClipboardData(%CF_BITMAP, ii.hbmColor)
          CALL CloseClipboard()
       END IF
       IF hIconLarge THEN DestroyIcon(hIconLarge)
       IF hIconSmall THEN DestroyIcon(hIconSmall)
    END IF
END SUB

Powerbasic Museum 2020-B

IT-Consultant: Patrice Terrier => Useful TIPS => Topic started by: Patrice Terrier on October 25, 2008, 04:59:02 PM