Problema Para Funcionar

[juniorboll]

Ai galera é o seguinte fiz o programa paradox usando DBE administrador so que queria saber como eu vo arrumar para poder fazer a instalação já que o programa precisa desse componente para rodar, eu to usando o installshield do delphi 7... por favor preciso muito dessa ajuda...

[Churc]

tipo, vai em

C:\Arquivos de programas\Arquivos comuns\Borland Shared\BDE

Abre o arquivo bdeinst.cab e extrai o arquivo BdeInst.dll

Coloca esse arquivo "BdeInst.dll" junto com sua instalação, e nas opções do installshield você seleciona algo pra "Registrar Servidor" ou "Register Server" nesse arquivo, não uso installshield então não sei te dar maiores info.

De qualquer forma, se quiser instalar o BDE sem usar o installshield, faça um exe, e de um regsvr32 no arquivo bdeinst.dll, não precisa nem de form, vo dar um exemplo rapido

Abre o delphi, já vai abrir um novo projeto, fecha o Form1 e a Unit1

Vai no menu Project / View Source

Seleciona tudo que está escrito e deleta

e cola isso

program bdeinst

uses

windows;

procedure InstallBDE;

begin

winexec(pchar('regsvr32.exe /u bdeinst.dll'), sw_shownormal);

end;

begin

InstallBDE;

end;

end.

Salva e compila, vai ter uns 30kb somente ou menos

O BdeInst.dll tem que estar no mesmo caminho desse executavel ou mude o parâmetro do winexec, ou você pode implementar e usar forms... foi só pra mostrar....

abraços

ahh li agora outro tópico seu, você diz que o InstallShield instala o BDE automático?!?

então já não sei dizer, uso InnoSetup

de qualquer forma, usando script é isso ai

abs

[juniorboll]

Eu falei isso so porque eu vi falando eu vi falando em algum lugar mas acho que isso so na versão do delphi 4 ou 5 num sei porque no 7 num faz isso não... vo tentar do jeito que você falou mesmo valeu pela ajuda...

[Churc]

affff amigo eu errei ahuahua

não é /u é /s

ahuahu eu fiz sem o delphi me desculpe

então troca

winexec(pchar('regsvr32.exe /u bdeinst.dll'), sw_shownormal);

por

winexec(pchar('regsvr32.exe /s bdeinst.dll'), sw_shownormal);

porque /s?

Pra que não apareça uma caixa de mensagem do regsvr32.exe dizendo

DLLRegisterServer em "C:\blablabla\...dll" teve êxito!

abraços