| |
|
|
| KompilierenMarqueSéparationSource wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Button: IconButton mit System-Icon aus verknüpfter Datei
Proc ExtractAssociatedIcon
Parameters file$,i&
Return External(SHELL32.dll,ExtractAssociatedIconA,%hinstance,Addr(file$),Addr(i&))
EndProc
Def w32_DrawIcon(4) !USER32,DrawIcon
Declare hIcon&,btn&
Cls
Print AUTOEXEC.BAT
hIcon&=ExtractAssociatedIcon(C:\AUTOEXEC.BAT,1)
w32_DrawIcon(%hdc,100,40,hIcon&)
btn&=Create(IconButton,%hwnd,hIcon&,300,20,40,42)
While 1
WaitInput
Wend
|
|
|
| |
|
|