How To Know Another Application Is Running?

[jothis]

Hello Friends

I have A Program Which For Opening A image Using shell()
And It Open A image Using Default Picture Viewer And It is Successfully.
But I want To Know The Viewer is Closed Or It is Still Running

Is it Possible In Basic 4 ppc?

Please Anyone help me

jothis
:sign0085:

 

[sitajony]

Hi, you can use this lib: http://www.b4x.com/forum/additional-libraries/384-useful-library.html#post1679 from DZT, with this you can check if an application is running... (Show all programs opened)
For get the default image viewer program you can read on the registry in HKCR/jpgfile*/shell/command/ "Default"...
I hope it usefull...

*It depends, you can check really the path in by example:
HKCR/.jpg Default

 

[Erel]

also replace SQLDesktop.cs and SQLDevice.cs from the previous version.

 

[jothis]

Thankyou For Helping me sitajony

Thanks for the helps

 

[jothis]

Hi, AGAIN,

I clarify my request.

Please check my program... (please run the attached file questionfile.zip)

Sub Globals
'Declare the global variables here.
file=AppPath &"\Blue hills.jpg"
End Sub

Sub App_Start
Form1.Show
End Sub
Sub Button3_Click
Shell(file,"")
Msgbox("Do you liked this image?")
End Sub

Sub Button4_Click
Form1.Close
End Sub

Here I want to reach at message box only after Shell() program.

That is, I wish the message to come only after the opend a image.
But message pop up came before open the image.

So I actually want , the Msgbox("Do you liked this image?") or any program run after the shell() finished.

I think you understood my question.

Can you please inform me. I need to use lot of shell programs in my works.
this is only a example.

Awaiting for your help

regards
Jothish:sign0085:

 

[sitajony]

Hi, did you try DoEvents()? I'm not realy sure if it works...:

[B]Sub Button3_Click[/B]
[B]  Shell(file,"")[/B]
[B]  DoEvents()[/B]
[B]  Msgbox("Do you liked this image?")[/B]
[B]End Sub[/B]

If it doesn't work create a Timer who show the MsgBox after few seconds otherwise maybe somebody else will give you a better idea...

Edit:
In fact with DoEvents() it doesn't work apparently...

The attached file is an example with a Timer...
Tell me if it works...

 

[jothis]

I tried with DoEvents(). But I got a error message as
Error parsing() as Number.
And I think, I can use a timer, because it is not practicable.
I need to wait for help again,

Thank you Sita Johny for your help.

regards Jotis

 

[sitajony]

I tried with DoEvents(). But I got a error message as
Error parsing() as Number.
And I think, I can use a timer, because it is not practicable.
I need to wait for help again,

Thank you Sita Johny for your help.

regards Jotis

Sorry it's not DoEvents() but DoEvents, I typed the VB/C Syntax...

 

[Byak@]

Hi, AGAIN,
So I actually want , the Msgbox("Do you liked this image?") or any program run after the shell() finished.

if you want to waiting while program not exit and then show msg-you can use a ProcessObject in Threading.dll

Sub Button3_Click
process.start(file,"")
End Sub

sub process_exit
Msgbox("Do you liked this image?")
end sub

if not-you can use this code

Sub Button3_Click
Shell(file,"")
sleep(3000)
Msgbox("Do you liked this image?")
End Sub

 

[agraham]

I'm afraid that will only work if you directly invoke an exe. Indirectly invoking a default application by means of a picture does not create a process so you should invoke the viewer program directly and pass the path to the picture as a parameter.

picpath = AppPath & "\Blue hills.jpg"
process.start(yourviwer.exe,picpath)

 

[jothis]

Thank you all,

its working well

the code i used to test is given below.


Sub Globals
'Declare the global variables here.
End Sub

Sub App_Start
Form1.Show
Process.New1
End Sub
Sub Button3_Click
Process.start(AppPath & "\package.exe","")
End Sub
Sub process_exit
Msgbox("Do you liked this image?")
End Sub
Sub Button4_Click
Form1.Close
End Sub

Thank you all.

best regards,
Jothis

 

[RacingDog]

process.start ? Just did a search in the Help file and the odd hopefully titled library Help files and can't find it. Looked at the specifications page on your site and a few other related pages. Still no joy.

Don't need it right now, but before I retired it was essential knowledge in the environments I used to work in, so it's only a matter of time before I think of some reason to want it again.

 

[agraham]

It's a Process object from my http://www.b4x.com/forum/additional-libraries/4805-threading-library-version-2-a.html#post27720

 

[RacingDog]

Nyaha! Gotcha! Ta. And now, got it too, the file that is.