Foros Club Delphi - Problema al crear DSN en tiempo de ejecución, pero sólo al ejecutar, no desde Delphi

Hola, buenos dias.

Tengo un problema al crear un DSN en tiempo de ejecución desde una aplicacion en Delphi 7. Cuando ejecuto el código desde Delphi, me crea el DSN sin problemas, pero al hacerlo desde el ejecutable, me devuelve el error "ERROR:Microsoft Access Settings NOT reset".

He estado buscando y no he encontrado nada, espero no haber sido muy torpe en mi búsqueda.

Este es el código que uso.

Código:



const 

  ODBC_ADD_DSN = 1; // Add data source 

  ODBC_CONFIG_DSN = 2; // Configure (edit) data

  ODBC_REMOVE_DSN = 3; // Remove data source

  ODBC_ADD_SYS_DSN = 4; // add a system DSN

  ODBC_CONFIG_SYS_DSN = 5; // Configure a system DSN

  ODBC_REMOVE_SYS_DSN = 6; // remove a system DSN

  ODBC_REMOVE_DEFAULT_DSN = 7; // remove the default DSN





function SQLConfigDataSource( hwndParent: HWND;

                                fRequest: WORD;

                                lpszDriver: LPCSTR;

                                lpszAttributes: LPCSTR): BOOL; stdcall; external 'ODBCCP32.DLL';





procedure TForm1.Button1Click(Sender: TObject);

var

  szAtributos:PChar;

  bResult:bool;

begin

     szAtributos:= PChar('DSN=ABC' + chr(0) +

                         'FIL=MS Access' + chr(0) +

                         'JetIniPath=odbcddp.ini' + chr(0) +

                         'DBQ=D:\ABC.mdb' + chr(0) +

                         'DefaultDir=D:\' + chr(0) + chr(0));



     try

        bResult := SQLConfigDataSource( HWND(NIL),

                                        ODBC_ADD_SYS_DSN_W7,

                                        'Microsoft Access Driver (*.mdb)',

                                        szAtributos);

     finally

            if (bResult=FALSE) then

               MessageDlg('ERROR: Microsoft Access Settings NOT reset.',mtError,[mbOK],0);

     end;



end;

Gracias de antemano por vuestra ayuda.