Генерация GUID

← →
volser (2004-10-17 15:34) [0]

Как можно программно сгенерить GUID? На подобии того как это делает Delphi при нажатии Ctrl+Shift+G.

← →
VMcL © (2004-10-17 15:38) [1]

CoCreateGuid
?

function GetUniqueString(const Default: string): string;
var
LGuid: TGUID;
LGuidStr: WideString;
Created: Boolean;
begin
try
Created := False;
SetLength(LGuidStr, StrGuidLen - 1);
if (CoCreateGuid(LGuid) and $80000000) = 0 then
begin
if
StringFromGUID2(LGuid, PWideChar(Pointer(LGuidStr)), StrGuidLen) <> 0
then
Created := True
end;
if Created then
Result := LGuidStr
else
Result := Default
except
Result := Default
end
end;

Генерация GUID Найти похожие ветки