Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получить Globally Unique Identifier (GUID)? [D6, WinXP]


galexis ©   (2003-12-17 13:35:00) 

Уважаемые мастера!
Подскажите пожалуйста, как получить GUID. Выгружаю в файл XML. Организация для которой производится выгрузка отчетов в xml, требует наличие ID=GUID для каждого файла.
спасибо


Ihor Osov'yak   (2003-12-17 14:34:00) [1]

см. также
function CreateClassID: string; в unit ComObj;


galexis   (2003-12-17 13:54:00) [2]

Я нашел. Может кому пригодится из help"а:
uses ActiveX, ComObj;
procedure TForm1.Button1Click(Sender: TObject);

var
G: TGUID;
begin
OleCheck(CoCreateGuid(G));
ShowMessage(GuidToString(G));
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо