вообщем суть моей идеи в том что нужную папку открывает наша прога,запрашивая пароль... (пароль верный - открывает папку\файл, неверный - закрывается...)
вот код:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
close
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.Caption:='загрузка...';
s1:=inputbox('Система защиты данных','Введите пароль','');
If s1='112233' then begin
Shellexecute(application.handle,nil ,'путь к файлу',nil,nil,SW_NORMAL); button1.Click; end
else Form1.Button1.Click;
end;
Admin: Пользуемся тегами!!!
конешно защита мягко говоря неочень, но если нужную директорию или файл спрятать куда подальше в недра и сделать его скрытым то поиск его не найдет а в ручную и подавно...