Создать GUID во время выполнения программыDelphi , Технологии , COM и DCOMСоздать GUID во время выполнения программы
Оформил: DeeCo 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 ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |