XProfan

Jörg
Sellmeyer

allô Georg,
So funktioniert es chez mir:

Hauptprogramm
Kompilieren Marque Séparation

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

Programme deux:prog2.prc
Kompilieren Marque Séparation

Déclarer Test$
Test$ = ca ist un zweiter Test
MessageBox(je suis Programme 2,Test$,0)

Programme trois:prog3.prc
Kompilieren Marque Séparation

Déclarer Test$
Test$ = ca ist un dritter Test
MessageBox(je suis Programme 3,Test$,0)

qui beiden letzten doit kompiliert im gleichen Verzeichnis comment qui Exe aus dem Hauptprogramm liegen.

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

Jörg
Sellmeyer

je hab encore quoi korrigiert!

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

GDL

allô Jörg,

mon obiges Beispiel allez aussi sans dem prc pas.un simple winexex(blabla.exe,1)
allez pas, si blabla.exe avec nem Ladedialog beginnt.

et quoi Roland avec

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

allez seulement si beide Programme différent Variablennamen nutzen.
chez declare hdll& dans startmenu.prf et declare hdll& dans xyz.prf usw. hagelts ständig fehlermeldungen avec doppelt declariert.
Anscheinend sommes qui Programme doch pas 100%ig auseinander ensuite.encore interessanter wird es si encore un drittes unabhängiges Programme ensuite nécessaire wird.
je werde seulement encore überschüttet avec doppelten declarationen.
j'ai Monate gebraucht dass je possible vite laufend Einleseergebnisse de ausserhalb bekomme. maintenant wohin es enfin einigermassen allez zerreiß je cela ganze nimmer.

salut
Georg

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

Jörg
Sellmeyer

je habs nochmal aktualisiert. là gibts mais aucun Meckereien GT. doppelter Variablen

tu dois Dir wahrscheinlich la fois un Struktogramm faire, afin de voyons, quoi Votre individuel Module faire devoir.

Achja, si Du Dein propre programme nochmal appel veux, es Du avec Par$(0) toujours sur qui richtigen page!

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

Thomas
Freier

courir qui Programme aussi avec XProfan 9 ?
voilà qui doppelte Declarierung pas so streng ou bien es était chez XProfan 8.

Gruß Thomas
Windows XP SP2, XProfan X2

GDL

cela Problem ist cela cela total différent dans sich abgeschlossene Programme sommes, qui comme prc de einer anderen exe aus gestartet volonté devoir.

mais afin de meinem original Problem zurückzukommen.

dans startmenue.exe appelle je dans qui Hauptschleife betrieb.exe sur
Kompilieren Marque Séparation

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$

ca allez mais seulement avec shell .....
Nehme je winexec......... wird komischerweise startmenue un 2tes la fois statt betrieb.exe gestartet.

je peux alle Programme einwandfrei avec winexec starten, solange qui aufzurufenden Programme pas avec einem Ladedialog dans irgendeinem Zusammenhang starten.
Lass Je l' Ladedialog weg peut sich betrieb.exe aussi avec winexec starten.

j'ai maintenant seulement cet Zeilen zur betrieb.exe gemacht.
Kompilieren Marque Séparation

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

je peux cet zeilen comme exe seulement avec shell appel.Winexec et winexecwait aller pas.
quoi encore allez ist mittels run aufzurufen.

salut
Georg

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

GDL

@Jörg,

peut-être reden wir l'un à l'autre vorbei.mon Module sommes kommplett eigenständige Exe Fichiers dans einem Komplettprogramm aus 10 Exen.
Programme bezieht sich chez Je ne sur une einzelne EXE mais sur plusieurs eigenständige Unterprogramme chacun comme exe.

salut
Georg

zz.jpg	95 kB

Hochgeladen:	07.11.2007

Downloadcounter:
		Download

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

Jörg
Sellmeyer

oui c'est ca, mais tu veux doch qui Exen pas, mais stattdessen prc-Fichiers, ou bien?
alors brauchst Du seulement encore Startmenü.exe et qui reste besteht aus betrieb.prc, diagnose_ports.prc, Gleisbau.prc ou bien quoi que + subj..
si une cette Module gestartet volonté soll, brauchst Du es seulement avec
Kompilieren Marque Séparation

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

starten.
ou bien plan avec Shell, WinExecWait...

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

RGH

allô Georg,

cela klingt alles äußerst seltsam.
quoi steht car chez Dir dans qui Variablen astart$ drin? je prends à qui Programmpfad avec abschließendem Backslash.

Salut
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

allô Georg,

je peux Votre Probleme pas nachvollziehen: j'ai Dein BETRIEB.EXE exakt so, comment Du es dessus gelistet la hâte, erzeugt. Folgendes Programme funktioniert chez allen trois Aufrufen völlig problemlos:
Kompilieren Marque Séparation

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

Salut
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

dans diesem le cas startet cela aufrufende Programme un 2tes la fois.
cette Codeteil läßt sich seulement comme exe et seulement avec shell starten.

Beispiel pour dessus

Programme start.prf hat declare a&
Programme bunt.prf hat declare a&

Programme start wird zur exe gelinkt et et Programme bunt trop pcr compilé.

gebe je im Code start ensuite un

winexec(start.exe bunt.prc,1)
venez tout de suite beim Starten de bunt qui Fehlermeldung Doppelte declaration a&

salut
Georg

salut
Georg

GDL

oui c'est ca et maintenant schliesst sich wida qui Kreis.

Sobald qui prf Code qui individuel Module qui selben Variablennamen avons hagelts chez mir Fehlermeldungen avec Doppelte declarationen.

et cette codeteil comme exe ou bien comme prc peut sich gar pas ouvrir
Kompilieren Marque Séparation

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

pre>

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