English
Source / code snippets

application own an Program started

 

CompileMarkSeparation
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 ../Function-References/XProfan/exits/'>exits
 
07/16/07  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

3.686 Views

Untitledvor 0 min.
Uwe Starke11/17/23
Frank04/16/21
Muemmelmann02/18/14

Themeninformationen

this Topic has 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie