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