INSTALLATION BDE

{$R install.RES}
{$R *.dfm}

procedure TForm1.Button_InstallClick(Sender: TObject);
var
  Prog, BDD, BDE: TResourceStream;
begin
  if chemin_install.Text <> '' then
  begin
    Prog:=TResourceStream.Create(0,'PROGRAM',RT_RCDATA);
    BDD:=TResourceStream.Create(0,'BDD',RT_RCDATA);
    BDE:=TResourceStream.Create(0,'BDE',RT_RCDATA);
    try
      Prog.SaveToFile(Chemin_Install.Text + 'Emprunt.exe');
      BDD.SaveToFile(Chemin_Install.Text + 'Emprunt.db');
      BDE.SaveToFile('c:\BdeInst.dll');
      ShowMessage('                                          INSTALLATION DE LA BDE' + sLineBreak + sLineBreak + 'Veuillez cliquer sur OK une fois seulement que l''installation de la BDE est terminée');
      ShellExecute(Handle,'open',PChar('regsvr32'),PChar('C:\BDEINST.dll'),nil,SW_SHOW);
      ShowMessage('OK');
      DeleteFile('C:\BDEINST.dll');
      ShowMessage('Installation terminée');
      ShowMessage('Merci d''avoir choisi ArchitectoInstall');
    finally
      Prog.Free;
      BDD.Free;
    end;
    Close;
  end else  ShowMessage('Veuillez choisir un dossier destination');
end;

procedure TForm1.Button_SelectDirectoryClick(Sender: TObject);
var
  Repertoire, slash: String;
begin
  If SelectDirectory('Choisissez le dossier de décompression', '', Repertoire) Then
    Chemin_Install.Text := Repertoire;
  slash := Chemin_Install.Text;
  if slash[Length(slash)]='\' then //Recupere le dernier caractere du string
  begin
    Chemin_Install.Text := Chemin_Install.Text;
  end else
  begin
    Chemin_Install.Text := Chemin_Install.Text + '\';
  end;
end;

procedure TForm1.QuitClick(Sender: TObject);
begin
  Close;
end;