Fórum como instalar o bde usando BdeInst.dll #178982
01/09/2003
0
ola pessoal eu sei q tem um comando para colocar no delphi para fazer a instalacao do bde em uma maquina atravez da dll BdeInst.dll alguem pode me ajudar...
Zacca
Curtir tópico
+ 0
Responder
Posts
01/09/2003
Cebikyn
Não testei, mas deve ser assim:
Passe o endereço completo da DLL para a [i:0ecbb617fd]procedure[/i:0ecbb617fd] e ela fará a instalação. Qualquer problema deixe uma msg.
procedure RegisterServer (const Filename: String);
var
LibHandle: THandle;
RegisterServerProc: function: HRESULT; stdcall;
begin
LibHandle := LoadLibrary(PChar(Filename));
if LibHandle <> 0 then
try
@RegisterServerProc := GetProcAddress(LibHandle, ´DllRegisterServer´);
if Assigned(@RegisterServerProc) then
RegisterServerProc;
finally
FreeLibrary (LibHandle);
end;
end;Passe o endereço completo da DLL para a [i:0ecbb617fd]procedure[/i:0ecbb617fd] e ela fará a instalação. Qualquer problema deixe uma msg.
Responder
Gostei + 0
01/09/2003
Zoom
Vi esta dica em um site , lembrando que a posição da Borland é:
BDEDeploy.txt do Delphi
Note that since we allow deployment of BDE files and subsets using an Borland-certified installation program, we do not otherwise allow deployment of individual BDE files.
Em um novo projeto:
Coloque um componente TButton
Dê dois cliques no button e faça o seguinte :
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 conforme adiante.
DllRegisterServer;
end;
end.
Salve o projeto e depois extraia o arquivo BDEINST.DLL do arquivo BDEINST.CAB, localizado (geralmente) em Arquivos de Programas\Arquivos Comuns\Borland Shared\BDE. Ou dê um localizar no Cd de instalação do Delphi .
Para o programa funcionar o arquivo BdeInst.dll deverá estar no mesmo diretório do seu executável.
BDEDeploy.txt do Delphi
Note that since we allow deployment of BDE files and subsets using an Borland-certified installation program, we do not otherwise allow deployment of individual BDE files.
Em um novo projeto:
Coloque um componente TButton
Dê dois cliques no button e faça o seguinte :
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 conforme adiante.
DllRegisterServer;
end;
end.
Salve o projeto e depois extraia o arquivo BDEINST.DLL do arquivo BDEINST.CAB, localizado (geralmente) em Arquivos de Programas\Arquivos Comuns\Borland Shared\BDE. Ou dê um localizar no Cd de instalação do Delphi .
Para o programa funcionar o arquivo BdeInst.dll deverá estar no mesmo diretório do seu executável.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)