Форум: "WinAPI";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];

Вниз

Как генерировать разный GUID?   Найти похожие ветки 

← →
Volf_555   (2005-12-07 20:09) [0]

Следующий код постоянно возвращает один и тот же GUID:
procedure TForm1.Button1Click(Sender: TObject);
var
s:TGUID;
begin
edit1.Text:=GUIDToString(s);
end;

Как сделать так, чтобы постоянно возвращался разный GUID?

---

← →
palva ©   (2005-12-07 20:28) [1]


uses ActiveX;
...
procedure TForm1.Button1Click(Sender: TObject);
var
s:TGUID;
begin
CoCreateGuid(s);
edit1.Text:=GUIDToString(s);
end;

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.093 c