XProfan

DEF ExtractIcon(3) !SHELL32,ExtractIconA
DEF LoadImage(6) ! USER32,LoadImageA
DEF &BM_SETIMAGE $0F7
DEF &IMAGE_ICON $01
DECLARE programm1$
DECLARE spalte%,zeile% Neu
DECLARE tip%,b01%
DECLARE txt1$ Neu
...........................................................................................................................................................
programm1$=C:\Programme\Internet Explorer\iexplore.exe  Hier den Pfad angleichen
txt1$ = SUBSTR$(programm1$, -1, \) Neu
spalte%=100:zeile%=100 Neu
..........................................................................................................................................................

Proc CreateIconButton

    Parameters Exe$,Index&,Window&,X&,Y&,W&,H&,ID&
    Declare Button&,Icon&
    Button& = Control(Button,,$56000040,X&,Y&,W&,H&,Window&,ID&,%Hinstance)
    Icon& = ExtractIcon(%Hinstance,Addr(Exe$),Index&)
    Sendmessage(Button&,&BM_SETIMAGE,&IMAGE_ICON,Icon&)
    Return Button&

EndProc

CLS
CreateIconButton programm1$,0,%hwnd,spalte%,zeile%,34,34,001
b01% = &(0)
tip%=CREATE(TOOLTIP,%HWnd,b01%,programm1$)
DrawText (spalte%+38),(zeile%+10),< +txt1$ Neu
WAITINPUT
END