XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dialoge: Info-Über-Dialog
Def ShellAbout(4)  !SHELL32,ShellAboutA
Declare szApp#, szOtherStuff#

Proc ShowAbout

    Parameters hWnd%, szApp$, szOtherStuff$, hIcon%
    Dim szApp#, Add(Len(szApp$), 1)
    Dim szOtherStuff#, Add(Len(szOtherStuff$), 1)
    String szApp#, 0 = szApp$
    String szOtherStuff#, 0 = szOtherStuff$
    ShellAbout(hWnd%, szApp#, szOtherStuff#, hIcon%)

EndProc

cls
ShowAbout %hWnd, Über mich#Windows 2010, Dieses Programm wurde in XProfan geschrieben, denn XProfan ist super!!!, 0