Installation bde

Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique :
Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique.

Commenter

Contenu du snippet

Voici une source permettant d'installer la BDE chez n'importe quel utilisateur qui n'a pas forcément Delphi.
Ainsi cet utilisateur pourra utiliser sans problème les base de données proposé par votre logiciel.

Cette source à était faire par rapport à cette page : http://www.delphifr.com/code.aspx?ID=24508

Je trouve ma façon plus simple pour l'utilisateur qui souhaite utiliser votre logiciel que de modifier directement la base de registre, etc.

Voilà :-)

Source / Exemple : 


{$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;

Conclusion :


Voilà une code source tout bête et facile à réadapter pour votre programme personnel.
Et de cette manière vous ne serez plus embêter vis à vis de cette fameuse BDE...

@+

LIEN DU TELECHARGEMENT : http://m.strasser.free.fr/Install%20BDE.zip

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Also know as)