Thanks Arnaud.
Unfortunately, this does not work.
I'm just a little bit surprised regarding the line:
ae.IntegerParam("----")=53
What does "----" mean?
You have to know that calling the AppleScript from my Xojo App (of
course, with On Run ... End Run tags in the script) works perfectly.
However, I would prefer to send directly an AE.
Thanks for your help
Jean-Luc Arnaud
Le 09/09/2014 11:03, Marnaud a écrit :
> f=LaunchServicesFindApplicationForInfoMBS("","com.apple.systemevents","")
> if f<>nil then
> f.Launch
> DelayMBS 3 //Here's the weak part: instead of waiting arbitrarily 3
> seconds, we should loop until System Events is in the list of running
> processes (on a slow computer, it may take more than 3 seconds).
> end if
>
> dim ae As AppleEvent
> ae=new AppleEvent("prcs","kcod","com.apple.systemevents")
> ae.IntegerParam("----")=53
> call ae.Send
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
mbsplugins@monkeybreadsoftware.info
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
