Cambiar impresora predeterminada

[fany1966]

Trabajo con Delphi4 en Windows XP SP2.
Tengo definidas en Windows DOS impresoras. Desde una aplicación Delphi
en tiempo de ejecución cambio la predeterminada con una función que
me he creado usando Winspool y Printer cuando acceso a según que
informe. El problema viene porque una vez arrancada la aplicación,
Windows no se entera hasta que no cierro la aplicación. Cuando arranco
de nuevo veo que efectivamente me ha cambiado la impresora por defecto.
¿alguna idea?
Gracias