XProfan

'Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
'Grafik: CreateIcon pour Icon aus externer Dossier
'PRFellow-Présentation
'Autor: Thomas Bois - Alle Rechte vorbehalten
'Umsetzung des Profan-Befehls CreateIcon pour Icon aus externem Modul
Def ExtractIcon(3) !"SHELL32","ExtractIconA"
Def SetWindowLong(3) !"User32","SetWindowLongA"
Def GetWindowLong(2) !"User32","GetWindowLongA"
Déclarer ifile#

Proc CreateExtIcon

    Paramètres hparent&,file$,x%,y%,index%
    Déclarer hresult&,hicon&
    Cas (hparent& = 0): hparent&=GetActiveWindow()
    hresult&=Créer("Text",hparent&,»,% X, y%,0,0)
    SetWindowLong(hresult&,-16,(GetWindowLong(hresult&,-16) | 3))
    Faible ifile#,(Len(file$) +  1)
    String ifile#,0=file$
    hicon&=ExtractIcon(%HINSTANCE,ifile#,index%)
    Dispose ifile#
    SendMessage(hresult&,$0172,2,hicon&)
    'allez aussi:
    'SendMessage(hresult&,$0170,hicon&,0)
    Retour hresult&

ENDPROC

'Beispiel:
Cls
Titre de la fenêtre  "Das Icon wandert beim Klicken mit"
Déclarer hi&
hi&=CreateExtIcon(%hwnd,"SHELL32.DLL",10,10,32)

Tandis que 1

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

Wend