XProfan

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

Proc CreateIconButton

    Paramètres Exe$,Index&,Window&,X&,Y&,W&,H&,ID&
    Déclarer Button&,Icon&
    Button& = Contrôle(Button,,$56000040,X&,Y&,W&,H&,Window&,ID&,%Hinstance)
    Icon& = ExtractIcon(%Hinstance,Addr(Exe$),Index&)
    SendMessage(Button&,&BM_SETIMAGE,&IMAGE_ICON,Icon&)
    Retour Button&

ENDPROC

CLS
CreateIconButton programm1$,0,%hwnd,spalte%,la ligne%,34,34,001
b01% = &(0)
tip%=CREATE(TOOLTIP,%HWnd,b01%,programm1$)
DrawText (spalte%+38),(la ligne%+10),< +txt1$ récente
WAITINPUT
FIN