Создать GUID во время выполнения программы

Delphi , Технологии , COM и DCOM

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   ComObj, ActiveX;

 function CreateGuid: string;
 var
   ID: TGUID;
 begin
   Result := '';
   if CoCreateGuid(ID) = S_OK then
     Result := GUIDToString(ID);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Edit1.Text := CreateGuid;
   // or: Edit1.Text := CreateClassID 
end;

Статья Создать GUID во время выполнения программы раздела Технологии COM и DCOM может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: COM и DCOM ::