starting 2 Progs with RunProgram

BackupUser · Post by **BackupUser** » Fri Apr 11, 2003 4:58 pm

Restored from previous forum. Originally posted by cisc.

try to start two programs with RunProgram(). The first runs, but not the second.
Is this not possible with PB or is my code wrong?
Here it is:

Code: Select all

ProgramName.s = "Excel.exe" ; Executable file name

Ergebnis = RunProgram(ProgramName);Excel should start
MessageRequester("Info",Str(Ergebnis),0);just to see it passed
 
Ergebnis = RunProgram("D:\\outlook express\MSIMN.EXE");OE should start
MessageRequester("Info",Str(Ergebnis),0);but it never does

Every Run for itselfe does work, but not both.
WhatÂ´s wrong, or is there any other solution?

BackupUser · Post by **BackupUser** » Fri Apr 11, 2003 5:07 pm

Restored from previous forum. Originally posted by dmoc.

Try a delay between the two

BackupUser · Post by **BackupUser** » Fri Apr 11, 2003 5:33 pm

Restored from previous forum. Originally posted by cisc.

Originally posted by dmoc

Try a delay between the two

MessageRequester should do, but I already tried it.
Same Effect.

BackupUser · Post by **BackupUser** » Fri Apr 11, 2003 5:55 pm

Restored from previous forum. Originally posted by ricardo.

Once i VB i has some similar problem and i use WaitForaSingleObject API to know when the application is running and then i can run the second one, this happens to me trying to run slow applications (slow to open) like Excell, etc.

Best Regards

Ricardo

Dont cry for me Argentina...

BackupUser · Post by **BackupUser** » Fri Apr 11, 2003 6:14 pm

Restored from previous forum. Originally posted by cisc.

Originally posted by ricardo

Once i VB i has some similar problem and i use WaitForaSingleObject API to know when the application is running and then i can run the second one, this happens to me trying to run slow applications (slow to open) like Excell, etc.

Best Regards

Ricardo

Dont cry for me Argentina...

Thank you both, dmoc and ricardo for your quick answers.
I will try it. But itÂ´l take some time because i am a very beginner in PB just used to VB.
However the WaitForSingleObject function awaits a dwMilliseconds parameter. This seems to affect the same as delay().
We will see.

--cisc

BackupUser · Post by **BackupUser** » Fri Apr 11, 2003 6:39 pm

Restored from previous forum. Originally posted by dmoc.

cisc, I tried the following and it works ok. I also tried a program in the "Program Files" directory and it was ok. You try this and tell me what happens...

Code: Select all

ProgramName.s = "notepad.exe" ; Executable file name
Ergebnis = RunProgram(ProgramName);Excel should start
Ergebnis = RunProgram("write.exe");OE should start

BackupUser · Post by **BackupUser** » Sat Apr 12, 2003 1:00 am

Restored from previous forum. Originally posted by PB.

Your example fails for me, too. But as dmoc said, if you remove the MessageRequesters
then it works (both apps are launched). Also, the problem only occurs if you test your
app in the compiler -- if you make an exe and run that, it works fine (even if you leave
the MessageRequesters in).

BackupUser · Post by **BackupUser** » Sat Apr 12, 2003 9:12 am

Restored from previous forum. Originally posted by cisc.

the example from dmoc fails with and without MessageRequesters in my test!?
But it is the compiler. An exe does the work fine

Thanks for your help. I am glad I spared the work with the WaitForSingleObject, with the window handles and all this stuff. Would have been quite much for this little problem - I just wanted to begin in PB with starting a spamproxy and then OutlookExpr., do OE and with closing the window, the SpamProxy should close too.
Just to do something helpful and beginning with PB and making it out fast.

cisc

BackupUser · Post by **BackupUser** » Sat Apr 12, 2003 9:30 am

Restored from previous forum. Originally posted by cisc.

yeah it works now. HereÂ´s the code:

Code: Select all

#STANDARD_RIGHTS_REQUIRED = $000F0000
#SYNCHRONIZE = $00100000
#PROCESS_ALL_ACCESS = #STANDARD_RIGHTS_REQUIRED+#SYNCHRONIZE+$0FFF

ProgEins.s="D:\\spamproxy\SPAMPRXY.EXE"
WinTitleEins.s="SpamProxy (Alpha)"

ProgZwei.s = "D:\\outlook express\MSIMN.EXE"

Ergebnis = RunProgram(ProgEins)
;MessageRequester("Info",Str(Ergebnis),0)

Ergebnis = RunProgram(ProgZwei,"","",1)
;If Ergebnis=0
;  MessageRequester("Done?", WinTitleZwei+" scheisse", 0)
;EndIf

ProcessId.l
ExitCode.l
hWindow = FindWindow_(0, WinTitleEins)
If hWindow =0
  MessageRequester("Done?", WinTitleEins+" scheisse", 0)
  Goto aus
EndIf
Ergebnis = GetWindowThreadProcessId_(hWindow, @ProcessId)
If Ergebnis=0
  MessageRequester("Done?", Str(hWindow)+" Window scheisse", 0)
  Goto aus
EndIf
hProcess = OpenProcess_(#PROCESS_ALL_ACCESS, #TRUE, ProcessId)
If Ergebnis=0
  MessageRequester("Done?", Str(hProcess)+" Process scheisse", 0)
  Goto aus
EndIf

If GetExitCodeProcess_(hProcess, @ExitCode) = 0
  MessageRequester("Done?", Str(hProcess)+" GetExitCodeProcess scheisse", 0)
  Goto aus
EndIf
;ExitProcess_(ExitCode)  0
If TerminateProcess_(hProcess, ExitCode)
  MessageRequester("Done?", "has been killed.", 0)
 Else
  MessageRequester("Done?", Str(hProcess)+" TerminateProcess scheisse", 0)
EndIf
aus:
End

The only little blemish is the icon from SpamProxy remaining in the info bar until mouse is moved over. Seems, terminating the process is not the very best - but how else can it be stopped?

cisc

BackupUser · Post by **BackupUser** » Sun Apr 13, 2003 1:04 am

Restored from previous forum. Originally posted by PB.

> the example from dmoc fails with and without MessageRequesters in my test!?

Strange. I'm using W2K Pro and both apps are launched from the compiler if the
MessageRequesters are left out. What OS are you running?

BackupUser · Post by **BackupUser** » Sun Apr 13, 2003 10:56 pm

Restored from previous forum. Originally posted by cisc.

Originally posted by PB

> the example from dmoc fails with and without MessageRequesters in my test!?

Strange. I'm using W2K Pro and both apps are launched from the compiler if the
MessageRequesters are left out. What OS are you running?

XP Pro

. It hangs at the second Prog start. See the Debug Window below.

But it only was for testing and compiled it works, so.....

BackupUser · Post by **BackupUser** » Sun Apr 13, 2003 11:27 pm

Restored from previous forum. Originally posted by cisc.

>The only little blemish is the icon from SpamProxy remaining in the >info bar until mouse is moved over. Seems, terminating the process >is not the very best - but how else can it be stopped?

Maybe itÂ´s intresting for some newbies like me.
A better way to quit a running process or window (and to get rid of the tray-icon) is with

Code: Select all

winHwnd = FindWindow_(0, WinTitle);to find the Handle
PostMessage_(winHwnd,#wm_close,0,0);to close it

Two lines instead of the 26 before.
It took me some time to find this information and I had the same problem some time ago in VB and didnÂ´t find anything.
It can be so easy if one knows how.