Решил попробовать поставить пароль на папку, получилось у меня вот так. Допустим имеется папка с секретной информацией, и её имя «sicret», когда чел открывает папку она скрывается,её не видно!!! и просим чела ввести пароль в «Edit1″, если пароль верный то папка становится видимой если нет то ShowMessage(‘Пароль не верный’);. далее сам исходный код =)
Запустим Delphi и на форму кинем 1 Edit, 1 Label, 1 Timer и 1 кнопку. В раздел «var» объявим одну переменную.
var
test:integer;
У таймера создаём обработчик OnTimer и запишем следующий код:
begin
test:= findWindow (nil, ‘sicret’);
if test0 then
Если чел папку открывает, то скрываем её и просим ввести пароль!!
begin
ShowWindow(test,SW_HIDE);
Label1.Caption:=(‘В ведите пароль’);
end
else
begin
// Если папка ещё не открыта, то просто скажем «Окна нет»
Label1.Caption:=(‘Окна нет’);
end;
end;
В принципе для таймера это всё!!! Ещё забыл сказать, «Interval» поставим к примеру 10 =)
Теперь обработчик кнопки, здесь нужно только проверить правильный пароль или нет, если он верный то папку сделаем видимой.
Запишем код:
begin
if Edit1.Text=’123′ then
Если в поле Edit введён текст «123″, в нашем случаи это пароль =), то папку делаем видимой и остановим таймер, если таймер не остановить папка все равно скроется с глаз.
begin
ShowWindow(test,SW_SHOWNORMAL);
timer1.Enabled:=false;
end
else
begin
// Если пароль не верный, то скажем об этом пользователю =)
ShowMessage(‘Пароль не верный’);
end;
end;
Код полностью для таймера :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
test:= findWindow (nil, ‘sicret’);
if test0 then
begin
ShowWindow(test,SW_HIDE);
Label1.Caption:=(‘В ведите пароль’);
end
else
begin
Label1.Caption:=(‘Окна нет’);
end;
end;
Код полностью для кнопки:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text=’123′ then
begin
ShowWindow(test,SW_SHOWNORMAL);
timer1.Enabled:=false;
end
else
begin
ShowMessage(‘Пароль не верный’);
end;
end;
Вот собственно как-то так у меня получилось, это конечно не супер способ защитить папку паролем это ПРОСТО ПРИМЕРНЫЙ КОД =).
Также можно поставить пароль на локальный диск =) за место названии папки написать «OS (C:)» и всё также будет скрываться и появляться только после того как чел введёт верный пароль =)