[Crack502]

Подскажите, как сделать, чтобы при открытии какой-нибудь папки, Сначала запускалась моя программа, которая в дальнейшем сама откроит эту папку. Это программа типа пароля на мою папку.

[Crack502]

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

Подскажите, как сделать, чтобы при открытии какой-нибудь папки, Сначала запускалась моя программа, которая в дальнейшем сама откроит эту папку. Это программа типа пароля на мою папку.

Что, никто не знает?

[Лунтик-Некрофил]

Пару дней назад видел открытие папок на форуме, поищи.

[Crack502]

Блин. не могу найти

[Лунтик-Некрофил]

Просто открытие.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
h: hwnd;
begin
ShellExecute(h, 'open', 'C:\', nil, nil, SW_SHOW);
end;

В Uses - ShellApi 

Если хочешь к ней привязать свою прогу - я тебе тут не помошник, хотя советую почитать справочники по winapi, может найдешь че полезное...

[Лунтик-Некрофил]

Еще как вариант открытия папки

Код:

winexec('explorer c:\', SW_SHOW);

[Crack502]

Понятно...Поищу где-нибудь

[r1x]

Crack502, подозрительные у тебя посты на форуме)) что ты там такое делаешь?

[Crack502]

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

Crack502, подозрительные у тебя посты на форуме)) что ты там такое делаешь?

Пишу несколько программок одновременно... Это мне надо для программы типа пароля на мою папку, а то скрывать, расскрывать её уже надоело.

[Ama]

Я думаю что тут надо действовать так. Перебираешь все окна в системе. И если найдется окно с твоей открытой папкой, то скрываешь окно и требуешь пароль.

[Crack502]

Понятно. Помог немного. Если есть какие другие варианты, буду рад слышать.

[b2soft]

а по мне человек начал карьеру вирусописателя на делфи. такие вопросы возникали у меня когда я писал свои вирусы. но ни один из моих вирусов не работал и никто их не запускал =(

[Лунтик-Некрофил]

b2soft, почему сразу вирусописатель? Возможно человеку необходимо ограничить доступ к своей папке с файлами формата ххх?)

[Vold.khv]

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

Код:

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

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

[nwm]

Хороший код .
Относительно винапи - воопще хорошо разобраться в них если планируете под винду прогать.