que pensez vous de ce code (Création source ODBC)

Bonjour a tous ,
c'est mon premier message sur ce formidable forum .
je veux créer une source ODBC via un programme delphi (je suis sous delphi 7 entreprise) , j'utilise Interbase 7.5 server comme SGBD , et IBPhoenix ODBC Driver .

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 
const
  ODBC_ADD_DSN=1;
  ODBC_REMOVE_DSN = 3 ;
 
  function SQLConfigDataSource(hwndParent:HWND;
                             fRequest:WORD;
                             lpszDriver:PCHAR;
                             lpszAttributes:PCHAR):BOOL;
                             stdcall; external 'odbccp32.dll';
 
 
// ce code est dans l'evenement FormCreate
 
// Creation de la Source ODBC
 if SQLConfigDataSource(0, ODBC_ADD_DSN, pchar('Firebird/InterBase(r) driver'),
                        Pchar('DSN=Masource'+ #0 +
                              'Server='+AdresseIP.Text+ #0 + // server IP
                              'Database='+AdresseIP.Text+':'+lechemin.Text+ #0 +
                              'Uid=SYSDBA'+ #0 +
                              'Pwd=masterkey'+ #0 +
                              'Trusted_Connection=yes' +#0#0 ))
 
        then
  begin
    //ShowMessage('DSN Créer');
  end
  else
  begin
   // showMessage('Erreur');
 
  end;

Citation:

AdresseIP.Text represente l'adresse IP du Serveur
lechemin.Text lechemin de la base de donnée

SVP que pensez vous de ce code ?