XProfan

Jörg
Sellmeyer

¡Hola Georg,
So funktioniert lo en me:

Hauptprogramm
Kompilieren Marca Separación

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

Programa zwei:prog2.prc
Kompilieren Marca Separación

Declarar Test$
Test$ = Dies es una zweiter Test
MessageBox(Yo bin Programa 2,Test$,0)

Programa drei:prog3.prc
Kompilieren Marca Separación

Declarar Test$
Test$ = Dies es una dritter Test
MessageBox(Yo bin Programa 3,Test$,0)

El beiden letzten necesario kompiliert en el gleichen Directorio como Exe de el Hauptprogramm mentira.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Jörg
Sellmeyer

Yo todavía qué korrigiert!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

GDL

¡Hola Jörg,

mein obiges Ejemplo va auch sin el prc no.Ein einfaches winexex(blabla.exe,1)
va no, si blabla.exe con nem Ladedialog beginnt.

y qué roland con

WinExec(startmenue.exe diagnose_ports.prc, 1)
meinte,

va sólo si beide Programas diferente Variablennamen nutzen.
En declarar hdll& en startmenu.prf y declarar hdll& en xyz.prf usw. hagelts ständig fehlermeldungen con doppelt declariert.
Anscheinend son el Programas doch no 100%ig auseinander entonces.Noch interessanter se lo si todavía una drittes unabhängiges Programa entonces benötigt se.
Yo voluntad sólo todavía überschüttet con doppelten declarationen.
Yo habe Monate gebraucht dass Yo möglichst rápidamente laufend Einleseergebnisse de ausserhalb bekomme. Jetzt wo lo endlich einigermassen va zerreiß Yo todos nimmer.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

Yo habs otra vez aktualisiert. Como gibts pero no Meckereien ca. doppelter Variables

Usted mußt Usted wahrscheinlich veces una Struktogramm hacer, en a sehen, qué Su individual Module hacer debería.

Achja, si Su propio programa otra vez aufrufen willst, bist Usted con Par$(0) siempre en el richtigen Página!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Thomas
Freier

Laufen el Programas auch con XProfan 9 ?
Como Es el doppelte Declarierung no así streng oder lo war en XProfan 8.

Gruß Thomas
Windows XP SP2, XProfan X2

GDL

Das Problema es el el total diferente en se abgeschlossene Programas son, el como prc de uno otro exe de comenzó voluntad debería.

Aber en a mi ursprünglichen Problema zurückzukommen.

In startmenue.exe rufe Yo en el Hauptschleife betrieb.exe en
Kompilieren Marca Separación

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 d

dner$

Dies va aber sólo shell .....
Nehme Yo winexec......... se komischerweise startmenue una 2tes veces en lugar de betrieb.exe comenzó.

Puedo todos Programas einwandfrei con winexec starten, solange el aufzurufenden Programas no con un Ladedialog en irgendeinem Zusammenhang starten.
Lass Yo, el Ladedialog weg lässt se betrieb.exe auch con winexec starten.

Yo ahora sólo esta Zeilen a betrieb.exe gemacht.
Kompilieren Marca Separación

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

Yo kann esta zeilen como exe sólo shell aufrufen.Winexec y winexecwait ir no.
Was todavía va es mittels run aufzurufen.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

@Jörg,

tal vez reden wir einander vorbei.Mi Module son kommplett eigenständige Exe Archivos en un Komplettprogramm de 10 Exen.
Programa bezieht se no yo en el en una einzelne EXE pero en mehrere eigenständige Unterprogramme jede como exe.

Servus
Georg

zz.jpg	95 kB

Hochgeladen:	07.11.2007

Ladeanzahl:
		Descargar

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

Exactamente, aber Usted willst doch el Exen no, pero stattdessen prc-Archivos, oder?
Also Usted necesita sólo todavía Startmenü.exe y el resto besteht de betrieb.prc, diagnose_ports.prc, Gleisbau.prc oder qué De todos modos.
Wenn eins dieser Module comenzó voluntad se, Usted necesita lo sólo
Kompilieren Marca Separación

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

starten.
Oder eben con Shell, WinExecWait...

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

RGH

¡Hola Georg,

el klingt alles äußerst seltsam.
Was es porque con usted en el Variables astart$ drin? Yo nehme a el Programmpfad con abschließendem Backslash.

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

RGH

¡Hola Georg,

Yo kann Su Problemas no nachvollziehen: Yo habe Su BETRIEB.EXE exakt así, como Usted lo oben gelistet hast, producido. Folgendes Programa funktioniert en allen drei Aufrufen völlig problemlos:
Kompilieren Marca Separación

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

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

In diesem Fall startet el aufrufende Programa una 2tes veces.
Dieser Codeteil läßt se sólo como exe y sólo shell starten.

Ejemplo para oben

Programa start.prf ha declarar a&
Programa bunt.prf ha declarar a&

Programa start se a exe gelinkt y y Programa bunt a pcr compiliert.

Me estoy dando en el Code start entonces una

winexec(start.exe bunt.prc,1)
kommt inmediatamente beim Starten de bunt el Fehlermeldung Doppelte declaration a&

Servus
Georg

Servus
Georg

GDL

Exactamente y ahora schliesst se wida el Kreis.

Sobald el prf Code el individual Module el selben Variablennamen haben hagelts en me Fehlermeldungen con Doppelte declarationen.

Und dieser codeteil como exe oder como prc lässt se nada abierto
Kompilieren Marca Separación

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

pre>

Windows7 Xprofan 8,9,10 [...]