XProfan

Español

Descripción:

El API ExtractIcon liefert el Handle uno Icons uno EXE-Expediente.

Deklaration:

DEF @ExtractIcon(3) !SHELL32,ExtractIconA

Parámetro:

1.Parámetro: Das Instancehandle el Anwendung, el el Icon enthält (LongInt).

2.Parámetro: Un Bereichsvariable, el el Namen el Anwendung enthält oder
el Adresse uno Cuerdas, el el Namen el EXE-Expediente angibt.

3.Parámetro: El Nummer des deseado Icons (Integer).

Rückgabewert:

Handle des Icons como LongInt.

Beispiele:

Kompilieren Marca Separación

DEF ExtractIcon(3) !"SHELL32","ExtractIconA"
Nach Andreas Miethes Ejemplo => Saludo a "Nachbarstadt" Bielefeld
Def CreateSolidBrush(1) ! "GDI32","CreateSolidBrush"
DEF @GetSysColor(1) !"USER32","GetSysColor"
Windowstyle 31
Windowtitle "Icon en Button zeichnen"
Ventana 0,0-640,440
Declarar Button&,IconHandle&,IconHolder$,DCButton&
Declarar Brush&
LET BUTTON&=@CREATEBUTTON(%HWND,"OK",100,100,200,30)
Let 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)

Mientras que 0=0

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

Wend