XProfan

winexec(astart$+betrieb.exe,1)
winexec(astart$+startmenue.exe betrieb.prc, 1)
shell astart$+startmenue.exe betrieb.prc
shell astart$+betrieb.exe

UserMessages 16
WinDowStyle $21A
Cls
Declare Test$
Test$ = Dies ist ein Test
Print Test$
Print Ich bin das Hauptprogramm.
Start mit qShellq:       2 für Programm2 oder 3 für Programm3 drücken.
Print Start mit qWinexecq:     4 für Programm2 oder 5 für Programm3 drücken.
Print Start mit qWinexecWaitq: 6 für Programm2 oder 7 für Programm3 drücken.
SetTimer 1

While 1

    WaitInput
    Case (%Umessage = 16) | (%ScanKey = 48):Break
    Case %wmtimer: WindowTitle Time$(0) + : + Time$(1)

    If %ScanKey = (50)2

        WaitInput
        Shell Par$(0) +  Prog2.prc

    ElseIf %ScanKey = (51)3

        Shell Par$(0) +  Prog3.prc

    ElseIf %ScanKey = (52)4

        WinExec(Par$(0) +  Prog2.prc,1)

    ElseIf %ScanKey = (53)5

        WinExec(Par$(0) +  Prog3.prc,1)

    ElseIf %ScanKey = (54)6

        WinExecWait(Par$(0) +  Prog2.prc,1)

    ElseIf %ScanKey = (55)7

        WinExecWait(Par$(0) +  Prog3.prc,1)

    ElseIf %ScanKey = (56)8

        Print Diese Variante funktioniert natürlich nur, wenn für prc im System das Profanprogramm angemeldet ist!.
        ShellExec(Prog2.prc,Open,1)

    ElseIf %ScanKey = (57)9

        Print Diese Variante funktioniert natürlich nur, wenn für prc im System das Profanprogramm angemeldet ist!.
        ShellExec(Prog3.prc,Open,1)

    EndIf

Wend

KillTimer

Declare Test$
Test$ = Dies ist ein zweiter Test
MessageBox(Ich bin Programm 2,Test$,0)

Declare Test$
Test$ = Dies ist ein dritter Test
MessageBox(Ich bin Programm 3,Test$,0)

elseif (menuitem(200)) or (getfocus(starten&[1]))

clearlist statbox&
clear adressen%
bereich$=Betrieb
statistik
clearclip
putclip ja
winexec(astart$+betrieb.exe,1)
shell astart$+betrieb.exe
chdir datenordner$

declare name$
cls
Name$ = @LoadFile$(ÖFFNE,Programme|*.EXE;*.PIF|Batch|*.BAT)
waitinput

WinExec(Par$(0) +   + ModulName$,1)

cls
print winexec(betrieb.exe, 1)
waitinput
print winexecwait(betrieb.exe, 1)
waitinput
shell betrieb.exe
waitinput
end

declare name$
cls
Name$ = @LoadFile$(ÖFFNE,Programme|*.EXE;*.PIF|Batch|*.BAT)
waitinput