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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with TRegistry.Create do
//si l'opération échoue notre code est protégé, c'est ce qu'on appel gestion des exceptions
try
{ Recensement de la source de données (1) }
// clé principale
RootKey := HKEY_LOCAL_MACHINE;
// si la clé n'est pas disponible faut la créer
if Registre.KeyExists('\Software\ODBC\ODBC.INI\ODBC Data Sources') then
// on ouvre la clé du catalogue ODBC
OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',false);
// création de la clé
else Registre.CreateKey('\Software\ODBC\ODBC.INI\ODBC Data Sources');
// on ajoute la notre en l'occurrence SQL Serve
WriteString('MaSourceSQLServer','SQL Server');
{ Ecriture des paramètres (2) }
// si ya erreur lors de l'ouverture on affiche un message
if not OpenKey('\Software\ODBC\ODBC.INI\MaSourceSQLServer',true) then
raise Exception.Create('impossible de créer la clé : '+
'<\Software\ODBC\ODBC.INI\MaSourceSQLServer>');
// sinon on écrit les autres paramètres relatif à notre ODBC
WriteString('Driver','C:\WINNT\System32\sqlsrv32.dll');
WriteString('Description','Source créée par programme');
WriteString('Server','SRVSQL');
WriteString('LastUser','SA');
WriteString('Trusted_Connection','Yes');
finally
// enfin on libère les ressources
Free;
end;
end;
end. |
Partager