palabra clave:
ActiveX, Tguid, CoCreateguid, GuidToString
// --- Programa de prueba de Conan 2005/04/14 --- //
Unidad Unidad1;
interfaz
usos
Windows, mensajes, sysutils, variantes, clases, gráficos, controles, formularios,
Diálogo,
ActiveX, stdctrls;
tipo
TForm1 = class (tForm)
Botón 1: tbutton;
procedimiento botón1Click (remitente: tobject);
privado
{Declaraciones privadas}
público
{Declaraciones públicas}
fin;
varilla
Form1: tform1;
implementación
{$ R *.dfm}
procedimiento tForm1.Button1Click (remitente: tobject);
varilla
I: entero;
sguid: cadena;
Tmpguid: tguid;
comenzar
para i: = 0 a 10 hacer
comenzar
Si cureCreateguid (tmpguid) = s_ok entonces
SGUID: = GUIDTOSTRING (TMPGUID)
demás
ShowMessage ('¡Crear error GUID!');
Showmessage (sguid);
fin;
fin;
fin.