Mot-clé:
Activex, tGuid, coCreateGuid, GuidToString
// --- Programme de test par Conan 2005/04/14 --- //
unité unité 1;
interface
usages
Windows, messages, systèmes, variantes, classes, graphiques, contrôles, formulaires,
Dialogues,
ActiveX, stdctrls;
taper
Tform1 = classe (tform)
Button1: Tbutton;
Procédure Button1Click (expéditeur: tobject);
privé
{Déclarations privées}
publique
{Déclarations publiques}
fin;
var
FORM1: TFORM1;
mise en œuvre
{$ R * .dfm}
Procédure tform1.button1Click (expéditeur: tobject);
var
I: entier;
SGUID: String;
TMPGUID: TGUID;
commencer
pour i: = 0 à 10 faire
commencer
Si coCreateGuid (tmpGuid) = S_OK alors
SGUID: = GuidToString (TMPGUID)
autre
ShowMessage («Créer une erreur de guid!»);
ShowMessage (SGUID);
fin;
fin;
fin.