Текущий архив: 2004.03.05;
Скачать: CL | DM;
Вниз
Подскажите плз, как сгенерировать GUID (globally unique identifi) Найти похожие ветки
← →
Layner © (2004-02-25 11:20) [0](в стринговую переменную)
← →
pasha_golub © (2004-02-25 11:22) [1]Ctrl+Shift+G
← →
Sha © (2004-02-25 11:43) [2]CoCreateGuid
← →
Sha © (2004-02-25 11:44) [3]+GuidToString
← →
Внук © (2004-02-25 12:40) [4]+ CoInitialize :)
← →
Anatoly Podgoretsky © (2004-02-25 13:03) [5]Внук © (25.02.04 12:40) [4]
При необходимости, в главном кодовом потоке не надо.
← →
Romkin © (2004-02-25 13:19) [6]Anatoly Podgoretsky © (25.02.04 13:03) [5] Не надо, если есть Application.Initialize :)) Проходили.
← →
Владислав © (2004-02-25 14:05) [7]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;
Страницы: 1 вся ветка
Текущий архив: 2004.03.05;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.01 c
