XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Messagebox mit selbstdefiniertem Icon
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer
Eine API-Message mit benutzerdefiniertem Icon
Hier: Profaninternes Icon
siehe auch messbox2.prv
Def GetModuleHandle(1) !KERNEL32,GetModuleHandleA
Def MessageBoxIndirect(1) !USER32,MessageBoxIndirectA
Declare mbox#,mbicon#,mbtxt#,mbcaption#

Proc ExtMessageBox

    Parameters txt$,caption$,icon$
    Dim mbox#,40
    Dim mbtxt#,Add(Len(txt$),1)
    Dim mbcaption#,Add(Len(caption$),1)
    Dim mbicon#,Add(Len(icon$),1)
    String mbtxt#,0=txt$
    String mbcaption#,0=caption$
    String mbicon#,0=icon$
    Long mbox#,0=40
    Long mbox#,4=GetActiveWindow()
    Long mbox#,8=GetModuleHandle(0)  %hinstance,wenn die System-Variable stimmt (ab 6.1)
    Long mbox#,12=mbtxt#
    Long mbox#,16=mbcaption#
    Long mbox#,20=$040080
    Long mbox#,24=mbicon#
    Long mbox#,28=0
    Long mbox#,32=0
    Long mbox#,36=0
    MessageBoxIndirect(mbox#)
    Dispose mbox#
    Dispose mbicon#
    Dispose mbcaption#
    Dispose mbtxt#

EndProc

Beispiel
Declare t$
Let t$=
Autor: Thomas Hölzer
Demo einer erweiterten Messagebox,
in der ein benutzerdefiniertes Icon angezeigt werden kann.
Ideal für eine
einfache About-Box o.ä.
Weitere  Stilflags usw. finden sich unter
MSGBOXPARAMS in win32.hlp.
ExtMessagebox t$, PRFellow-Vorlage - ExtMessageBox,A