ключевое слово:
ActiveX, TGUID, COCREATEGUID, GUILTOSTRING
// --- Программа тестирования Конана 2005/04/14 --- //
единица единицы 1;
интерфейс
Использование
Windows, сообщения, Sysutils, варианты, классы, графика, управления, формы,
Диалоги,
ActiveX, stdctrls;
тип
Tform1 = class (tform)
Баттон1: Tbutton;
процедура Button1click (отправитель: tobject);
частный
{Частные объявления}
публичный
{Публичные объявления}
конец;
вар
Форма1: tform1;
выполнение
{$ R *.dfm}
Процедура tform1.button1click (отправитель: tobject);
вар
Я: целое число;
Sguid: String;
Tmpguid: tguid;
начинать
для i: = от 0 до 10
начинать
Если cocreateguid (tmpguid) = s_ok, тогда
Sguid: = GuidtoString (tmpguid)
еще
ShowMessage ('создать ошибку GUID!');
ShowMessage (SGUID);
конец;
конец;
конец.