Показать сообщение отдельно
  #14  
Старый 26.01.2010, 05:49
Vold.khv Vold.khv вне форума
Прохожий
 
Регистрация: 21.01.2010
Сообщения: 11
Репутация: 10
По умолчанию

вообщем суть моей идеи в том что нужную папку открывает наша прога,запрашивая пароль... (пароль верный - открывает папку\файл, неверный - закрывается...)
вот код:

Код:
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: Пользуемся тегами!!!

конешно защита мягко говоря неочень, но если нужную директорию или файл спрятать куда подальше в недра и сделать его скрытым то поиск его не найдет а в ручную и подавно...
Ответить с цитированием