Recupere la chaine GUID depuis une structure

Contenu du snippet

Declare Function StringFromCLSID Lib "ole32" (ByRef rclsid As GUID, ByRef ppsz As Long) As Long
Declare Sub CoTaskMemFree Lib "ole32" (ByVal pv As Long)
Declare Sub RtlMoveMemory Lib "kernel32" (Destination As Any, Source As Any, ByVal Length As Long)

Function StrFromCLSID(ByRef wGuid As GUID) As String
    Dim vPtr  As Long
    StrFromCLSID = String(38, 0)
    StringFromCLSID wGuid, vPtr
    RtlMoveMemory ByVal StrPtr(StrFromCLSID), ByVal vPtr, LenB(StrFromCLSID)
    CoTaskMemFree vPtr
End Function


Compatibilité : VB6

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.