Вы можете сгенерировать 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;
Админ: Пользуемся тегами при оформлении кода!