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

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

Генерация GUID

volser ©   (2004-10-17 15:34:00) 

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

---

Владислав   (2004-10-18 10:01:00) [1]

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;

---

VMcL   (2004-10-17 15:38:00) [2]

CoCreateGuid
?

---

Наверх