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 _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives: <http://support.realsoftware.com/listarchives/lists.html>
