Cita:
Empezado por PepCat
¿Y crear un GUID?
Código:
uses
ComObj, ActiveX;
function CreateGuid: string;
var
ID: TGUID;
begin
Result := '';
if CoCreateGuid(ID) = S_OK then
Result := GUIDToString(ID);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := CreateGuid;
end;
|
Pone que debe ser un numero secuencial, por lo que se descartan UUIDs