XProfan

'Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
'Grafik: CreateIcon para Icon de externer Expediente
'PRFellow-Presentación
'Autor: Thomas Hölzer - Alle Rechte vorbehalten
'Umsetzung des Profano-Befehls CreateIcon para Icon de externem Modul
Def ExtractIcon(3) !"SHELL32","ExtractIconA"
Def SetWindowLong(3) !"USER32","SetWindowLongA"
Def GetWindowLong(2) !"USER32","GetWindowLongA"
Declarar ifile#

Proc CreateExtIcon

    Parámetros hparent&,file$,x%,y%,index%
    Declarar hresult&,hicon&
    Case (hparent& = 0): hparent&=GetActiveWindow()
    hresult&=Crear("Text",hparent&,"",x%%,0,0)
    SetWindowLong(hresult&,-16,(GetWindowLong(hresult&,-16) | 3))
    Dim ifile#,(Len(file$) +  1)
    String ifile#,0=file$
    hicon&=ExtractIcon(%hInstance,ifile#,index%)
    Disponer ifile#
    SendMessage(hresult&,$0172,2,hicon&)
    'va auch:
    'SendMessage(hresult&,$0170,hicon&,0)
    Volver hresult&

ENDPROC

'Ejemplo:
Cls
Título de la ventana  "Das Icon wandert beim Klicken mit"
Declarar hi&
hi&=CreateExtIcon(%hwnd,"SHELL32.DLL",10,10,32)

Mientras que 1

    WaitInput
    SetWindowPos hi&=%mouseX,%mouseY-32,32

Wend