Le 9 sept. 2014 à 15:01, Jean-Luc Arnaud a écrit:
> However, I would prefer to send directly an AE.
Ok, I found the problem (at least, on my side). Here's what happens: launching
System Events brings it to the front (yes, it's a no-UI app, but it can still
be brought to the front (the menu bar, still showing the last app, is all
greyed out)).
What about this, then? (note that there are two solutions; test one “or” the
other).
f=LaunchServicesFindApplicationForInfoMBS("","com.apple.systemevents","")
if f<>nil then
f.Launch false //Solution 1: don't try to activate SystemEvents
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).
app.FrontmostMBS=True //Solution 2: bring our app back to the front
end if
dim ae As AppleEvent
ae=new AppleEvent("prcs","kcod","com.apple.systemevents")
ae.IntegerParam("----")=53
call ae.Send
If it still doesn't work (I hope we had the same problem), could you describe
how it doesn't work for you? (the symptom)
Hope this helps.
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
mbsplugins@monkeybreadsoftware.info
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
