программа пароль

[ruslan21]

я зделал программу пароль которая открывает папку которую я создал в локальном диске 'С:\1' все хорошо но есть один минус
ВНИМАНИЕ ВОПРОС
дело в том что эту папку можно открыть в ручную не заходя в мою программу мне надо чтоб при открывание папки С:\1 папка открывала сначала мою программу типа (ведика ты сначала пароль а потом я тебе предоставлю все свои даные) но этого я эделать не могу плиз помогите вот код со всеми описаниями

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, shellapi;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
ъ
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='123456' // это пароль
then
begin
ShellExecute(Form1.Handle, 'open', 'c:\1', // папка которая откроется
'c:\1', nil, SW_SHOWNORMAL); // если в EDIT вести пароль
end
else
showmessage('ведён не правельный пароль'); // программа ругается
end; // на неверный пароль и просит его вести ещё раз
end.

[Трофимов Александр]

Так это что? Папка будет блокироваться только вовремя работы программы?

[НЕ_АЙС]

вместо папки используй архив
расширение архивного файла можешь поменять на своё и ассоциировать его со своей прогой
затем прога выдает запрос на ввод пароля и если он правильный то прога показывает его содержимое
компоненты для работы с zip-архивом здесь
http://www.componentace.com/download...p?editionid=12

[ruslan21]

это программа пароль если интересно помести на форму один элемент эдит и кнопку на кнопке напиши следующее что написано в коде но только заранее создай папку и назови её под именем "1" и увидеш результат