Cita:
Empezado por mrobles
La cosa es, ¿hay alguna metodología para "inventarse" ese número?
|
¿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;