Palavra -chave:
ActiveX, TGUID, COCRETEGUID, GUIDTOUSTRING
// --- Programa de teste de Conan 2005/04/14 ---- //
unidade de unidade1;
interface
usos
Janelas, mensagens, sysutils, variantes, classes, gráficos, controles, formulários,
Diálogos,
ActiveX, stdctrls;
tipo
Tform1 = classe (tform)
Button1: tbutton;
Procedimento Button1Click (remetente: Tobject);
privado
{Declarações privadas}
público
{Declarações públicas}
fim;
var
Form1: TForm1;
implementação
{$ R *.dfm}
procedimento TForm1.Button1Click (remetente: TOBJECT);
var
I: Inteiro;
sguid: string;
Tmpguid: tguid;
começar
para i: = 0 a 10 do
começar
Se CocreTeguid (tmpguid) = s_ok então
SGUID: = GuidtoString (tmpguid)
outro
ShowMessage ('Criar erro de Guid!');
ShowMessage (SGUID);
fim;
fim;
fim.