1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| with TRegistry.Create do
try
{ Recensement de la source de données (1) }
RootKey := HKEY_CURRENT_USER;
OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources', False);
WriteString('TestSQLServer', 'SQL Server');
{ Ecriture des paramètres (2) }
if not OpenKey('\Software\ODBC\ODBC.INI\TestSQLServer', True) then
raise Exception.Create('impossible de créer la clé : <\Software\ODBC\ODBC.INI\TestSQLServer>');
WriteString('Driver', 'C:\Windows\system32\SQLSRV32.dll');
WriteString('Description', 'Test de connexion Server SQL');
WriteString('Server', 'SRV-SQL');
WriteString('LastUser', 'tstuser');
//WriteString('Trusted_Connection', 'Yes');
MessageDlg('Connexion créée !', mtConfirmation, [mbOK], 0);
finally
Free;
end; |
