Comment générer un unique id de l'ordinateur sur Delphi?

Comment puis-je générer rapidement un unique id de l'ordinateur pour une application delphi?
J'ai l'habitude de le faire facilement avec c#, mais cela ne s'est pas parfois. Je veux que les ID d'être "statique", mais je n'ai pas de soins si l'id de modifications en raison d'un changement de matériel ou de système d'exploitation réinstallation, j'avais l'intention de le stocker dans le registre et la vérifier au démarrage de l'application, et si elle a changé de mettre à jour le registre. (Je sais comment le code de la partie registre, j'ai seulement besoin de l'aide de l'identifiant unique).

Grâce.

InformationsquelleAutor Sebastian | 2009-12-05
  2. 4

    Ont un coup d'oeil à SysUtils.CreateGUID qui crée un identificateur global unique. Syntaxe:

    function CreateGUID(out Guid: TGUID): HResult; stdcall;

    Un petit exemple tiré de D2010 aide:

    {
This example demonstrates the usage of some GUID 
related routines along with the type itself.
}
procedure TForm2.FormCreate(Sender: TObject);
var
  MyGuid0, MyGuid1 : TGUID;

begin
  { Create a new GUID from the string representation. }
  MyGuid0 := StringToGUID('{00020400-0000-0000-C000-000000000046}');
  Memo1.Lines.Add('The GUID is: ' + GUIDToString(MyGuid0));

  {
  Accessing GUID's internal fields
  Using the Format function to obtain the same output as GUIDToString
  }
  Memo1.Lines.Add(Format('GUID using formatting is: ' +
       '{%0.8X-%0.4X-%0.4X-%0.2X%0.2X-%0.2X%0.2X%0.2X%0.2X%0.2X%0.2X}',
       [MyGuid0.D1, MyGuid0.D2, MyGuid0.D3,
       MyGuid0.D4[0], MyGuid0.D4[1], MyGuid0.D4[2], MyGuid0.D4[3],
       MyGuid0.D4[4], MyGuid0.D4[5], MyGuid0.D4[6], MyGuid0.D4[7]]));

  { Autogenerate a random GUID at run time. }
  if CreateGUID(MyGuid1) <> 0 then
     Memo1.Lines.Add('Creating GUID failed!')
  else
     Memo1.Lines.Add('The generated guid is: ' + GUIDToString(MyGuid1));

  { Generating second random GUID. }
  CreateGUID(MyGuid0);

  { Testing if two guids are equal. }
  if IsEqualGUID(MyGuid0, MyGuid1) then
     Memo1.Lines.Add('This cannot happen! CreateGUID guarantees that ' +
                     '2 randomly generated GUIDs cannot be equal!');
end;

    HTH

    • le problème ici est qu'il n'est pas spécifique à l'appareil et appeler Createguid de nouveau créer un id différent. Je crois que l'utilisateur veut que l'ID soit le même à chaque fois qu'elle est demandée.
    • Si GUID existe déjà dans certaines emplacement prédéterminé dans le registre, il n'y a pas besoin de générer un nouveau - et donc l'ID "être le même à chaque fois qu'elle est demandée". Cependant, en utilisant le numéro de série d'un composant matériel, les changements d'identité dès que le composant particulier est mis à niveau. L'OP n'a pas expliqué pourquoi cette identification est nécessaire, mais que cette approche serait certainement produire quelque chose d'acceptable en termes de ce que l'OP effectivement demander.
    InformationsquelleAutor John Thomas
  3. 2

    Je ne suis pas exactement sûr de ce que vous demandez? Cela pourrait aider si vous préciser pourquoi vous avez besoin de l' "unique id de l'ordinateur".

    Option 1

    Le bit:

    "J'avais l'intention de le stocker dans le registre et la vérifier au démarrage de l'application, et si elle a changé de mettre à jour le registre."

    me donne l'impression que vous essayez de détecter un autre (plus récente) version de l'application et/ou d'identifier les différentes applications au sein d'une suite.

    Si c'est le cas, alors tout simplement en appuyant sur Ctrl+Shift+G va générer un GUID unique pour vous et l'insérer à votre position actuelle du curseur dans le code.
    Vous pouvez aussi regarder les informations de version; peut-être auto-incrémentation des numéros de build?

    Option 2

    Si vous essayez de faire en quelque sorte identification unique des installations sur des ordinateurs différents, jetez un oeil à la CreateGUID fonction dans plainth de réponse.

    Option 3

    Vous avez mentionné que vous n'avez "pas de soins si l'id de modifications en raison d'un changement de matériel ou de système d'exploitation réinstallation". Je ne suis pas sûr si c'est un fait important comme: vous essayez de détecter les modifications sur le matériel? Après tout, vous avez dit que vous n'avez pas de soins; mais alors, pourquoi mentionner à ce tout?

    Option 4

    Quelque chose d'autre que je n'ai pas pris en compte?

    InformationsquelleAutor Disillusioned
  4. 0

    Vous pouvez essayer d'utiliser un UUID algorithme pour les raisons suivantes:

    • Il independs matériel
    • C'est vraiment aléatoire
    • Il est indépendant de la plateforme.

    Mais attention: pour obtenir l'indépendance matérielle, vous devez choisir un algorithme qui n'utilise pas l'adresse MAC de la machine. Microsoft GUID l'utilise (c'est ainsi qu'ils ont découvert, qui a écrit que l'AMOUR VOUS virus, souvenez-vous il?)

    InformationsquelleAutor Kico Lobo