Dica de: Audrey Marcos Decco Francisconi
audreyfrancisconi@yahoo.com.br
INSTALANDO O BDE – sem utilizar instaladores de terceiros.
Passo UM
Inicie um novo projeto:
Coloque um componente TButton e altere sua propriedade Name e Caption para BtInstalar e Instalar BDE respectivamente.
Altere a propriedade Name do Form para Form_Instalar.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm_Instalar = class(TForm)
BtInstalar: TBitBtn;
procedure BtInstalarClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
public
end;
var
Form_Instalar: TForm_Instalar;
function DllRegisterServer:integer; stdcall; external 'BdeInst.dll';
implementation
{$R *.dfm}
procedure TForm_Instalar.BtInstalarClick(Sender: TObject);
begin
//Chamada para a DLL que fará a instalação do BDE . . .
//(BdeInst.dll) . . . a qual deverá estar no diretório
//do seu projeto cfe Passo 3.
DllRegisterServer;
end;
end.
Passo Dois
Agora salve seu projeto . . .
Passo Três
Extraia o arquivo BDEINST.DLL do arquivo BDEINST.CAB, localizado (geralmente) em Arquivos de Programas\Arquivos Comuns\Borland Shared\BDE. Para isso, use o WINZIP ou digite "extract BDEINST.CAB" na linha de comando.
Para o programa funcionar o arquivo BdeInst.dll deverá estar no mesmo diretório do seu executável.
PRONTO . . . vc não precisa + do InstallShield ou qualquer outro instalador para instalar o BDE nos seus clientes.
Feito isso, você terá um instalador certificado, já que será o próprio BDEINST.DLL, da Borland, que fará a instalação dos arquivos e a criação das entradas apropriadas no registro do Windows e não o seu instalador.
