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