unit1.pas

实现了在开发的数据库程序中打包加入SQL数据库驱动并允许在安装程序服务器端时安装SQL数据库 这样可以不需要实施人员或客户单独安装SQL数据库程序

Unit Unit1;

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;

Type
  TForm1 = Class(TForm)
    B_Check: TButton;
    B_Setup: TButton;
    B_DB: TButton;
    Procedure FormPaint(Sender: TObject);
    Procedure B_CheckClick(Sender: TObject);
    procedure B_SetupClick(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.FormPaint(Sender: TObject);
Var
  i: word;
  dy, y: real;
Begin
  {dy := clientheight / 256;
  y := 0;
  For i := 255 Downto 0 Do
  Begin
    canvas.brush.color := $00000000 + i * $10000;
    canvas.fillrect(rect(0, round(y), clientwidth, round(y + dy)));
    y := y + dy;
  End;}
End;

Procedure TForm1.B_CheckClick(Sender: TObject);
Var
  reg: TRegistry;
  stmp: String;
  bOK: Boolean;
Begin
  bOK := False;
  reg := Tregistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  If Reg.OpenKey('\SOFTWARE\Microsoft\Microsoft SQL Server\80\Tools\ClientSetup', True) Then
  Begin
    stmp := reg.ReadString('SQLPath');
    If stmp <> '' Then
      bOK := True;
    reg.CloseKey;
  End;
  reg.free;
  If bOK Then
    ShowMessage('已安装SQL程序！')
  Else
  Begin
    B_Setup.Enabled := True;
    ShowMessage('未安装SQL程序！');
  End;
End;

procedure TForm1.B_SetupClick(Sender: TObject);
begin
  //WinExec('C:\Downloads\msde2000\MSDE2000\Setup.Exe');
end;

End.