| |
|
|
| CompileMarkSeparationSource 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 ../Function-References/XProfan/exits/'>exits
|
|
|
| |
|
|