Как получить Globally Unique Identifier (GUID)?

← →
galexis (2003-12-17 13:35) [0]

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

← →
galexis (2003-12-17 13:54) [1]

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

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

← →
Ihor Osov'yak (2003-12-17 14:34) [2]

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

Как получить Globally Unique Identifier (GUID)? Найти похожие ветки