Fórum Verificação do Vendor Init #212536

procedure TfrmSenha.registro;
var
Reg: TRegistry;
cVendor_Init, cDLL32 : string; {Variáveis criadas para guardar Valores de Registro}
begin
Reg := TRegistry.Create;
try
{ Define a chave-raiz do registro }
Reg.RootKey := HKEY_LOCAL_MACHINE;
{ Abre a chave (path). Se não existir, cria e abre. }
Reg.OpenKey(´SOFTWARE\Borland\Database Engine\Settings\DRIVERS\ORACLE\INIT´, true);
{ Escreve um inteiro }
//Reg.WriteInteger(´Numero´, StrToInt(Edit1.Text));
{ Escreve uma string }
//Reg.WriteString(´VENDOR INIT´, edit1.text);
if Reg.ValueExists(´VENDOR INIT´) then cVendor_Init := uppercase(Reg.ReadString(´VENDOR INIT´))
else ShowMessage(´Não existe valor definido em ´VENDOR INIT´´);
if Reg.ValueExists(´DLL32´) then cDLL32 := uppercase(Reg.ReadString(´DLL32´))
else ShowMessage(´Não existe valor definido em ´DLL32´´);
if (cVendor_Init = ´OCI.DLL´) or (cDLL32 = ´SQLORA8.DLL´) then
showmessage(´ATENÇÃO: Você está usando uma DLL não homologada pela Oracle para conectar-se ao ´+
´banco de dados (OCI.DLL). Para manter uma conexão segura com o banco Oracle via BDE use a DLL ´+
´ORACLIENT? fornecida pela própria ORACLE´);
finally
Reg.Free;
end;
end;