Buscar

Alterando o netdir

Código

{Muitas vezes precisamos alterar o NetDir do BDE para que nossas aplicações funcionem corretamente. E com poucas linhas de código você poderá deixar para que sua própria aplicação faça isso. Abaixo está uma rotina para alterar o NetDir de acordo com o drive informado como parâmetro:}

uses BDE; // não esqueça de incluir esta unit
 
// ChangeNetDir
procedure ChangeNetDir(Drive: Char);
var
  hCur: hDBICur;
  Config: CFGDesc;
  Cont: Boolean;
begin
  if DbiInit(nil) = DBIERR_NONE then
  begin
  hCur := nil;
  if DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPersistent,
  'DRIVERSPARADOXINIT', hCur) = DBIERR_NONE then
  begin
  if DbiSetToBegin(hCur) = DBIERR_NONE then
  begin
  Cont := True;
  while Cont do
  begin
  if (DbiGetNextRecord(hCur, dbiWRITELOCK, @Config, nil)
  <> DBIERR_NONE) then
  Cont := False
  else if StrIComp(Config.szNodeName, 'NET DIR') = 0 then
  begin
  StrPCopy(Config.szValue, Drive + ':');
  DbiModifyRecord(hCur, @Config, True);
  Cont := False
  end;
  end;
  end;
  end;
  DbiExit();
  end;
end; //Usa-se assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeNetDir('H');
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 27/05/03
Por: Felipe Monteiro
Visualizada: 2777 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009