XProfan

Français

Beschreibung:

qui API ExtractIcon liefert cela Handle eines Icônes einer EXE-Dossier.

Deklaration:

DEF @ExtractIcon(3) !SHELL32,ExtractIconA

paramètre:

1.paramètre: cela Instancehandle qui Anwendung, qui cela Icon contient (LongInt).

2.paramètre: une Bereichsvariable, qui den Namen qui Anwendung contient ou bien
qui Adresse eines Cordes, qui den Namen qui EXE-Dossier angibt.

3.paramètre: qui numéro des gewünschten Icônes (Integer).

Rückgabewert:

Handle des Icônes comme LongInt.

Beispiele:

Kompilieren Marque Séparation

DEF ExtractIcon(3) !"SHELL32","ExtractIconA"
Pour Andreas Miethes Beispiel => Salut à "Nachbarstadt" Bielefeld
Def CreateSolidBrush(1) ! "GDI32","CreateSolidBrush"
DEF @GetSysColor(1) !"User32","GetSysColor"
Windowstyle 31
Windowtitle "Icon sur Button zeichnen"
Fenêtre 0,0-640,440
Déclarer Button&,IconHandle&,IconHolder$,DCButton&
Déclarer Brush&
LET BUTTON&=@CREATEBUTTON(%HWND,"OK",100,100,200,30)
Laisser brush&=CreateSolidBrush(@GetSysColor(15))
LET ICONHOLDER$=@FINDFIRST$($WINPATH+"*.EXE")
LET ICONHANDLE&=@ExtractIcon(%HINSTANCE,@ADDR(ICONHOLDER$),0)
LET DCBUTTON&=@GetDC(Button&)
@DrawIconEx(DCBUTTON&,10,5,ICONHANDLE&,20,20,0,brush&,3)

Tandis que 0=0

    Waitinput
    @DrawIconEx(DCBUTTON&,10,5,ICONHANDLE&,20,20,0,brush&,3)

Wend