При выполнении большой конкатенации строк используйте StringBuilder. Когда Вы конкатенируете со Строкой, Вы создаете новую Строку каждый раз, израсходовав больше памяти.
Alex
Используйте серийный номер жесткого диска или MAC-адрес:
Как получить серийный номер с жестких дисков? Создание уникального идентификатора машины
Вы можете попробовать использовать алгоритм UUID по следующим причинам:
Но будьте осторожны. : для достижения аппаратной независимости вы должны выбрать алгоритм, который не использует MAC-адрес машины. GUID Microsoft использует его (так они узнали, кто написал этот вирус LOVE YOU, помните?)
Взгляните на SysUtils.CreateGUID, который создает глобальный уникальный идентификатор. Синтаксис:
function CreateGUID(out Guid: TGUID): HResult; stdcall;
Небольшой пример из справки D2010:
{
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
Я не совсем понимаю, о чем вы спрашиваете? Это может помочь, если вы объясните, зачем вам нужен «уникальный идентификатор компьютера».
Бит:
«Я планировал сохранить его в реестре и проверять его при запуске приложения, и если оно изменилось, обновите реестр».
производит у меня впечатление, что вы » повторно пытается обнаружить другую (более новую) версию приложения и / или идентифицировать разные приложения в пакете.
Если это так, то простое нажатие Ctrl + Shift + G
сгенерирует уникальный GUID для вас и вставьте его в текущую позицию курсора в коде.
Вы можете также посмотреть информацию о версии; возможно, номера сборки автоматически увеличиваются?
Если вы пытаетесь каким-либо образом идентифицировать уникальные установки на разных компьютерах, взгляните на функцию CreateGUID
в простом ответе.
Вы упомянули, что вас «не волнует, изменится ли идентификатор из-за смены оборудования или переустановки ОС». Я не уверен, что это важный факт, например: вы пытаетесь обнаружить изменения оборудования ? В конце концов, вы сказали, что вам все равно ; но тогда зачем вообще об этом упоминать?
Что-то еще, что я не рассматривал?