[жекаизжека]

вот сделал что бы путь брал из файла

Код:

  procedure OpenBD;
var
 FP:TextFile;
 StringPath:string;
 NameOfFile:string;
begin
     NameOfFile:=ExtractFileDir(Application.ExeName)+'\path.txt';
  if FileExists(NameOfFile) then
  begin
    Assign(Fp,NameOfFile);
    try
     begin
      Reset(FP);
      Read(FP,StringPath);
     end;
    finally
     CloseFile(FP);
    end;
   end
    else
     begin
      ShowMessage('Файл пути к б.д. не найден'+
                  #13+
                  'Создайте в папке программы файл path.txt'+
                  #13+
                  'и запишите туда путь к б.д.';
     end;
    Form1.ADOConnection1.ConnectionString:=StringPath;
    with form1 do
    begin
     ADOConnection1.Connected:=True;
     ADOQuery1.Active:=true;
     ADOQuery2.Active:=true;
     UserQuery.Active:=true;

     end;
end;

в событие oncreate прописываем

Код:

OpenBD;

вот как сделать что бы этот файл был зашифрован, могли бы подсказать, что бы его нельзя было прочитать каким либо редактором.