On Apr 27, 2007, at 4:43 PM, Arnaud Nicolet wrote: > Le 27 avr. 07 à 22:16 Soir, Charles Yeomans a écrit: > >> On Apr 27, 2007, at 4:11 PM, Arnaud Nicolet wrote: >> >>> Le 27 avr. 07 à 21:45 Soir, Charles Yeomans a écrit: >>> >>>> Here's most of the code you need. >>>> >>>> Sub OpenApplication(f as FolderItem) >>>> const CarbonLib = "Carbon.framework" >>>> >>>> soft declare function LSOpenApplication lib CarbonLib >>>> (inAppParams >>>> as Ptr, ourPSN as Ptr) as Integer >>>> >>>> dim parameters as new MemoryBlock(28) >>>> >>>> const kLSLaunchDontSwitch = &h00000200 >>>> dim flags as UInt32 = kLSLaunchDontSwitch >>>> >>>> parameters.UInt32Value(4) = flags >>>> >>>> dim appRef as new FSRef(f) >>>> parameters.Ptr(8) = appRef >>>> >>>> dim OSError as Integer = LSOpenApplication(parameters, nil) >>>> End Sub >>>> >>>> >>>> The FSRef class can be found on my web site <http:// >>>> www.declaresub.com/iDeclare/Files/FileManagerClasses.rbp.zip>. >>>> I am >>>> somewhere in the process of rewriting that code; if it does not >>>> work >>>> as is, let me know. >>>> >>>> Charles Yeomans >>> >>> Excellent! All worked fine. Thank you! >>> Could you explain what is the difference between kLSLaunchDontSwitch >>> and FolderItem.launch(false)? >> >> My code worked for you :) >> >> Charles Yeomans > > Ok, thanks again.
Actually, I just tried FolderItem.Launch false, and it appears to do the very same thing as my code does. Charles Yeomans _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives: <http://support.realsoftware.com/listarchives/lists.html>
