El código esta en el segundo enlace que me has puesto:
http://www.clubdelphi.com/foros/showthread.php?t=40902
y he hecho lo que he entendido (que seguro que esta mal) sustituir el parametro 0 por el nombre del programa y cambiar GetModuleFileNameEx por GetModuleBaseName.
Te importa ponerme como quedaría? gracias por tu paciencia.