Закрыть доступ к файлу *.db

[Антон Шестаков]

У меня такой вопрос - можно ли как-нибудь (и как если возможно) - есть файл с расширением *.db при нажатии на него из любого файлового менеджера файл открывается и вся инфа в нём видать. А можно ли
сделать так, чтобы при нажатии на него клавишей F3 (для просмотра) выдавалась фраза - доступ запрещён! как выдаётся, когда пытаешься просмотреть любой закрытый виндосовский файл.

[_SERGEYX_]

Файл *.db - это понятие растяжимое... Если это файл Paradox, то на него можно поставить пароль.

[Антон Шестаков]

А пароль не будет всё время спрашиваться, когда у меня будет запускаться программа? Мне этого не надо. Paradox файл у меня всё время редактируется, а если при добавлении новой записи будет спрашиваться пароль - это не то что мне надо!

[Domovoy]

Так поставь опцию LoginPromt=false и всё.

[Антон Шестаков]

А где эта опция (прошу простить за глупый вопрос) LoginPromt находиться?
Если прописать её программно, то где ?
Table1.Database.LoginPrompt:=false;

[Pitbull]

Сообщение от Domovoy

Так поставь опцию LoginPromt=false и всё.

вы неправильно поняли ответ МОДЕРАТОРА... Наверное.

есть еще , как вариант, наисать прогу, которая виселабы в автозагрузке и по таймеру отслеживала нажатие клавиши F3... Віводила пароль и анализировала его.
как подсказка клавиша F3- єто VK_F3.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
     procedure MyKeyboardEvent(var Msg:TMessage); message WM_KEYDOWN;
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

function CheckKeyboard(key :Word) :boolean;
begin
 //Проверяем нажата ли клавиша переданная в качестве параметра
 result := GetAsyncKeyState(key) < 0;
end;

procedure TForm1.MyKeyboardEvent(var Msg:TMessage);
begin
 //Если нажата клавиша 
 if CheckKeyboard(VK_F3) then
 begin
  .....//здесь віведи форму с паролем...и анализируй.....
 end;

end;

end.

Єто типа отслеживает клавишу Ф3....

[_SERGEYX_]

Пароль для Парадокса - это строка в сессии, которая нахотся в памяти. Я для Парадокса делал так: закрываю все таблицы паролем, например, 12345. В onShow главной формы вывожу окно запроса пароля в котором пишу
if editPass.text = 'бла-бла' then
Session.AddPassword('12345');
Пароль будет висеть в памяти до закрытия программы.