XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
mit dem eigenen Programm eine Anwendung starten
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Diese Beispiel demonstriert, wie eine Anwendung
gestartet werden kann.
Es bedeuten:
------------
X%     - Breite des Fensters
Y%     - Höhe des Fensters
%maxX  - horizontale Auflösung des Bildschirmes
%maxY  - vertikale Auflösung des Bildschirmes
Window x1,y1 - x2,y2       siehe Profan - Hilfe
 $WinPath  : Windows-Pfad (z.B. C:WINDOWS )
%HWnd     : Integer - Handle des übergeordneten Fensters
prgverz$     : Pfad in der die Anwendung enthalten ist
WinExecWait(S,N)  : Die Anwendung S wird mit Abbildungsmodus N gestartet.
but%   : Variablebezeichnung für den Button
CreateButton(N,S,X1,Y1,X2,Y2) : Button wird erzeugt
N     : Integer - Handle des übergeordneten Fensters
S     : String  - Text auf dem Button
X1,Y1 : Integer - Linke obere Ecke des Buttons
X2,Y2 : Integer - Größe des Buttons
-----------------------------------------------
declare X%,Y%,e%,prgverz$,but%,endbut%          Variablen declarieren
x% = 300                                                beachte, dass X% < %maxX
y% = 300                                                beachte, dass Y% < %maxY
prgverz$ = $Winpath + Sol.exe                        C:Windows + sol.exe wird zusammengeesetzt
window (%MaxX - x%) / 2, (%MaxY - y%) / 2 - x%,y%       Fenster wird erzeugt
endbut%=CreateButton(%HWnd,Beenden,120,100,80,25)     Button zum Beenden wird erzeugt
but%=CreateButton(%HWnd,Anwendung starten,120,150,140,25) Button zum Anwendung starten wird erzeugt

PROC ANWENDUNG                                          Prozeduranfang

    WinExecWait(prgverz$,3)                                 laden der Anwendung Solitär in Modus 3 (3 = maximiert)

ENDPROC

###############################                        Hauptschleife beginnt
e%=0                                                    ist eingabe = 0 mache nichts

Whilenot e%

    waitinput                                               warten auf Eingabe

    if getfocus(endbut%)                                    wird beenden anglickt wird erstelltes Fenster zerstört

        e%=1

    elseif getfocus(but%)                                  wird Anwendung starten angeklickt, wird z.B. Spiel geladen

        ANWENDUNG

    Endif

WEND

end                                                        Programm wird ../funktionsreferenzen/XProfan/final/'>final