Instalar BDE

22/05/2003

2

Useu o código abaixo, mas depis que executa o código ocorre EAccessViolation. alguém sabe como evitar, eu usei closekey, e quase deu certo. se souberem contatem me: tiocassio@ig.com.br , valeu!!!

var r: tregistry;

with r do begin
RootKey := HKEY_LOCAL_MACHINE;
CreateKey(´SOFTWARE\Borland\Database Engine´);
OpenKey(´SOFTWARE\Borland\Database Engine´, False);
WriteString(´DLLPATH´, dir+´\´);
WriteString(´CONFIGFILE1´, dir+´\IDAPI32.CFG´);
OpenKey(´\´, False);
CreateKey(´SOFTWARE\Borland\BLW32´);
OpenKey(´SOFTWARE\Borland\BLW32´, False);
WriteString(´BLAPIPATH´, dir+´\´);
WriteString(´LOCALE_LIB1´, dir+´\USA.BTL´);
WriteString(´LOCALE_LIB2´, dir+´\EUROPE.BTL´);
end;


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar