FVBUSICOULOUR 15
MakeGUID
Samstag, 29. März 2008 um 21:43
Procedure.s MakeGUID() 
Protected LBuffer.s = Space(76)
Protected GuidId.GUID
CoCreateGuid_(GuidId)
StringFromGUID2_(GuidId, LBuffer,76);
CompilerIf #PB_Compiler_Unicode
ProcedureReturn LBuffer
CompilerElse
Protected SBuffer.s = Space(38)
WideCharToMultiByte_(0, 0, LBuffer, 76, SBuffer, 38, 0, 0);
ProcedureReturn SBuffer
CompilerEndIf
EndProcedure

Debug MakeGUID()
Aktualisiert ( Samstag, 29. März 2008 um 21:49 )
 
© 2012 www.realsource.de
free Joomla Template by funky-visions.de powered by greatnet.de Webhosting