XProfan

Deutsch

Beschreibung:

Die API ExtractIcon liefert das Handle eines Icons einer EXE-Datei.

Deklaration:

DEF @ExtractIcon(3) !SHELL32,ExtractIconA

Parameter:

1.Parameter: Das Instancehandle der Anwendung, die das Icon enthält (LongInt).

2.Parameter: Eine Bereichsvariable, die den Namen der Anwendung enthält oder
die Adresse eines Strings, der den Namen der EXE-Datei angibt.

3.Parameter: Die Nummer des gewünschten Icons (Integer).

Rückgabewert:

Handle des Icons als LongInt.

Beispiele:

Kompilieren Markieren Separieren

DEF ExtractIcon(3) !"SHELL32","ExtractIconA"
Nach Andreas Miethes Beispiel => Gruß an "Nachbarstadt" Bielefeld
Def CreateSolidBrush(1) ! "GDI32","CreateSolidBrush"
DEF @GetSysColor(1) !"USER32","GetSysColor"
Windowstyle 31
Windowtitle "Icon auf Button zeichnen"
Window 0,0-640,440
Declare Button&,IconHandle&,IconHolder$,DCButton&
Declare 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)

While 0=0

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

Wend