CA-Visual Objects - Dbfast

Esta rutina está tomada de la plantilla que proporciona dbfast para establecer comunicación vía DDE con Caret. Sin embargo, en Windows 2000 no se establece la comunicación. ¿Sabe alguien por qué?
Es decir wrun Caretrun.exe no se ejecuta por lo que contact() devuelve falso

DECLARE PFUNCTION GetModuleHandle RETURNING INTEGER IN DLL kernel
IF GetModuleHandle('CARETRUN.EXE') = 0
WRUN CARETRUN.EXE
ENDIF
TALK TO CARETRUN ABOUT SYSTEM
nSeconds = SECONDS()
DO WHILE (SECONDS() - nSeconds) < 3
CHKEVENT()
IF CONTACT()
EXIT
ENDIF
ENDDO
IF .NOT. CONTACT()
BEEP
WARNING(csCARETRunErr,csCARETNotRun,384)
RETURN
ENDIF
EXECUTE '[File.Open(&M->filimp)]'
EXECUTE '[File.Preview]'
// EXECUTE '[File.Print(0,0)]'
CARETEvents = SPACE(20)
IF AUTODATA('CARETEVENTS')
DO WHILE CARETEvents <> csReportClose .AND. ;
CARETEvents <> csViewClose .AND. ;
CARETEvents <> csCARETClose
CHKEVENT()
ENDDO
IF CARETEvents <> csCARETClose
EXECUTE '[File.Exit()]'
ENDIF
STOPDATA('CARETEVENTS')
ELSE
BEEP
WARNING(csCARETErr,csCARETNoStatInfo,387)
ENDIF
TERMINATE
RETURN