[baitymauu]

Вы можете сгенерировать GUID в Delphi с помощью функции CreateGUID. Вот простой пример:

Код:

uses
  SysUtils, Windows;

const
  WM_MYMESSAGE: Cardinal = 0; // Inicializar con 0 o cualquier valor temporal

var
  MyGUID: TGUID;

begin
  CreateGUID(MyGUID);
  WM_MYMESSAGE := DWORD(MyGUID.Data1); // Puedes usar Data1 como identificador único

  // Usa WM_MYMESSAGE en tu procedimiento
end;

Админ: Пользуемся тегами при оформлении кода!