Pues a mi me se ocurre otra.
Dejar la unit tal cual esta en tu web. Y solo cambair estas dos lineas
Código Delphi
[-]
mActivar := RegisterWindowMessage(sActivar);
Mutex := CreateMutex(nil, true, sMutex);
Cambiarlas por:
Código Delphi
[-]
mActivar := RegisterWindowMessage(PChar(sActivar+ParamStr(0)));
Mutex := CreateMutex(nil, true, Pchar(sMutex+ParamStr(0)));