XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster-Icon austauschen (1)
Def SetClassLong(3) !USER32,SetClassLongA
Def ExtractIcon(3) !SHELL32,ExtractIconA
Declare TEXT#

PROC FENSTERICONSETZEN

    Parameters DateiName$,Nr%
    Declare DasIco&
    FindFirst$(DateiName$)
    Case %IOResult: Let DateiName$=Par$(0)
    Dim TEXT#,Add(Len(DateiName$),1)
    String TEXT#,0=DateiName$
    Let DasIco&=ExtractIcon(%hinstance,TEXT#,Nr%)
    Dispose TEXT#
    Case Gt(DasIco&,1): SetClassLong(GetActiveWindow(),-14,DasIco&)

ENDPROC

#######################################################
cls
FensterIconSetzen ICON2.ICO,0
FensterIconSetzen D:WINDOWSSHELL32.DLL,12
WaitInput
end