On 10/16/06, Charles Yeomans <[EMAIL PROTECTED]> wrote:
For Mac OS X --
Function NewUUID() As String
soft declare function CFUUIDCreate Lib "Carbon.framework" (alloc
as Integer) as Integer
Const kCFAllocatorDefault = 0
dim uuid as Integer = CFUUIDCreate(kCFAllocatorDefault)
soft declare function CFUUIDCreateString Lib
"Carbon.framework" (alloc as Integer, uuid as Integer) as CFStringRef
dim uuidString as CFStringRef = CFUUIDCreateString
(kCFAllocatorDefault, uuid)
soft declare sub CFRelease Lib "Carbon.framework" (cf as Integer)
CFRelease uuid
return uuidString
End Function
It works nicely - thanks!
--
Peter Bozek
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
