XProfan

Jörg
Sellmeyer

Hello Georg,
so functions it by me:

Hauptprogramm
Compile Mark Separation

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

Program two:prog2.prc
Compile Mark Separation

Declare Test$
Test$ = this is one zweiter Test
MessageBox(I be Program 2,Test$,0)

Program three:prog3.prc
Compile Mark Separation

Declare Test$
Test$ = this is one dritter Test
MessageBox(I be Program 3,Test$,0)

The both last must compiled in the equal directory as Exe from the Hauptprogramm lying.

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

Jörg
Sellmeyer

I Have yet what korrigiert!

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

GDL

Hello Jörg,

my obiges example goes too without the prc not.One simple winexex(blabla.exe,1)
is not, if blabla.exe with nem Ladedialog begins.

and what roland with

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

goes only if both programs different Variablennamen benefit.
with declare hdll& in startmenu.prf and declare hdll& in xyz.prf etc. hagelts constantly fehlermeldungen with twice declariert.
apparently are The programs still not 100%ig apart then.yet interessanter becomes it if another drittes unabhängiges Program then needed becomes.
i'll only yet überschüttet with double declarationen.
I have months used I possible quick ongoing Einleseergebnisse of ausserhalb get. now where it finally einigermassen goes zerreiß I the whole never.

Hello
Georg

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

Jörg
Sellmeyer

I habs again updated. there Gibts but no Meckereien wg. doppelter variables

you mußt you probably time one Struktogramm make, to see, what your individual Module make should.

Achja, if you your own program again Call want, are You with Par$(0) always on the right Page!

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

Thomas
Freier

walk The programs too with XProfan 9 ?
there's The double Declarierung not so severe or it was with XProfan 8.

Gruß Thomas
Windows XP SP2, XProfan X2

GDL

The problem is the the utterly different in itself abgeschlossene programs are, The as prc a others exe from launched go should.

but in order to my ursprünglichen trouble zurückzukommen.

In startmenue.exe call I in the Hauptschleife pursued.exe on
Compile Mark Separation

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$

this goes but only with shell .....
take I winexec......... becomes komischerweise startmenue one 2tes time instead of pursued.exe launched.

I can any programs correct with winexec started, as long as The aufzurufenden programs not one Ladedialog in irgendeinem Context started.
Lass I the Ladedialog lane can itself pursued.exe too with winexec started.

I have now only these Lines to pursued.exe made.
Compile Mark Separation

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

I it can zeilen as exe only with shell Call.Winexec and winexecwait weg not.
what yet goes is through run aufzurufen.

Hello
Georg

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

GDL

@Jörg,

Perhaps talk we each other past.my Module are kommplett eigenständige Exe Files one Komplettprogramm from 10 Exen.
Program relating itself not at me on a single EXE separate on several eigenständige Unterprogramme each as exe.

Hello
Georg

zz.jpg	95 kB

Hochgeladen:	11/07/07

Downloadcounter:
		Download

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

Jörg
Sellmeyer

very, but You want still The Exen not, separate instead prc-Files, or?
means will need you only yet Startmenü.exe and the remainder exists from pursued.prc, diagnose_ports.prc, Gleisbau.prc or whatever.
If one this Module launched go should, will need you it only with
Compile Mark Separation

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

started.
or even with Shell, WinExecWait...

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

RGH

Hello Georg,

the sound everything utterly strange.
what standing because with you in the variables astart$ drin? I suppose the Programmpfad with abschließendem Backslash.

Greeting
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

Hello Georg,

I can your Problems not understand: I have your BETRIEB.EXE exakt so, How You it supra gelistet have, created. The following Program functions with all three Call completely free from problems:
Compile Mark Separation

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

Greeting
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 this case launch the aufrufende Program one 2tes time.
this Codeteil can itself only as exe and only with shell started.

example for supra

Program start.prf has declare a&
Program motley.prf has declare a&

Program start becomes to exe gelinkt and and Program motley To pcr compiliert.

give I in code start then one

winexec(start.exe motley.prc,1)
comes immediate at started of motley The Error Message double declaration a&

Hello
Georg

Hello
Georg

GDL

very and now close itself wida the circle.

once The prf code the individual Module The same Variablennamen having hagelts by me Fehlermeldungen with double declarationen.

and this codeteil as exe or as prc can itself none open
Compile Mark Separation

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

pre>

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