[artemavd]

Добрый день! Скажите пожалуйста, какое происходит событие в системе, когда пользователь нажимает два раза на левую кнопку мыши и открывает папку? Событие OnClick? Или что-то другое? И как перехватить это событие?

[Yurk@]

OnDblClick - двойное нажатие левой мышки

[artemavd]

Понятно. А как можно написать программу, с помощью которой можно было бы ставить пароль на папку? То есть когда пользователь пытается открыть папку, то появлялось бы окошко, куда надо было бы ввести пароль и если он правильный, то папка открывается.

[жекаизжека]

Если напишешь кинь исходник...
могу сказать тебе надо в начале программу забить в реестр на автозагрузку...остально ищи в инете..

[xchrom]

хех, ну отловит он двойной щелчок а остальные способы открытия папки как будет отлавливать??? например меню правой кнопки и "открыть" или в проводнике или в любом файл-менеджере

нет товарищ, такая защита только с полным дауном может пройти

[kda6666]

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

[Interface]

А может тебе имеет смысл написать прогу которая будет...
1. Пихать содержимое папки в 1 файл;
2. Шифровать/архивировать его;
3. Папку удалять...
4. Вместо нее ставить этот файл, который будет открываться твоей прогой;
5. А потом при необходимости ее можно преобразовать обратно.
Этот вариант тебе подходит? Но учти это уже "Архватор" (большой и могущественный... но я не об этом) будет (наверно ) На мой взгляд это более прально! А чем тебя не устраивает зип. Если я вдрг не прав не ругайте!!! Я не долго в этом деле...

[artemavd]

Да не нужен мне архиватор! Если мне он понадобится для архивации папки, то я им и воспользуюсь. Свой писать я не собираюсь. Я просто хочу написать программу, которая бы ставила желаемый мной пароль на папку (не просто на отдельный документ, а именно на папку, в которой уже лежат эти самые документы). Я думаю, что программа должна получать полное имя файла, и блокировать ее открытие до того, пока в появившееся окошко не будет введен верный пароль, который я задал. Ну хорошо. Если никто не может помочь мне в этом, то может кто-нибудь знает как сделать такой пароль на любую программу, когда запускаешь ее ехе-файл?

[Interface]

Как уже сказали:

Если напишешь кинь исходник...
могу сказать тебе надо в начале программу забить в реестр на автозагрузку...остально ищи в инете..

А это я могу очень каряво тебе описать: (я такое с артмани пытался делать, очень бредово получается, но работает)

Код:

function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
     slavka := true;

  result := 0;

  FSnapshotHandle := CreateToolhelp32Snapshot 
                     (TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32); 
  ContinueLoop := Process32First(FSnapshotHandle, 
                                 FProcessEntry32); 

  while integer(ContinueLoop) <> 0 do 
  begin

    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
         UpperCase(ExeFileName)) 
     or (UpperCase(FProcessEntry32.szExeFile) = 
         UpperCase(ExeFileName))) then
          begin
      Result := Integer(TerminateProcess(OpenProcess(
                        PROCESS_TERMINATE, BOOL(0),
                        FProcessEntry32.th32ProcessID), 0));
                        end;
    ContinueLoop := Process32Next(FSnapshotHandle,
                                  FProcessEntry32); 
  end; 

  CloseHandle(FSnapshotHandle);
       slavka := true;
end;

это процедура убийства процесса по его имени.
Потом ставим таймер с мнтервало в 1 милисекунду...

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If Edit1.Text <> Parol then
KillTask('artmoney.exe');
end;

Тобишь прога будет каждую милисекунду убивать ехе-шник если не введен пароль! Но пральнее это делать по другому как незнаю, может те и этот способ подойдет...
Если напишешь будь другом выложь сюда исходник!

[Interface]

А как на папку ставить пароли... и т.д. Не в курсе!

[жекаизжека]

artemavd Почитай последний пост, может поможет

http://www.softboard.ru/lofiversion/...hp/t30989.html

[mak-karpov]

По-моему, надо следить за файловой системой ( как FileMon )
Пока пароль не введен, сделать прерывание экплореру.


ЗЫ
Как все это сделать - не знаю!!!!!

[Ama]

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

Добрый день! Скажите пожалуйста, какое происходит событие в системе, когда пользователь нажимает два раза на левую кнопку мыши и открывает папку? Событие OnClick? Или что-то другое? И как перехватить это событие?

Я тоже пыталься решить такую задачу прогу я сделал, но там требуется оптимизация. Я думаю ты разберешся вот код. Отзывы кидай на аську 412-636-666

[mak-karpov]

Кто знает, где эти RbButon, RbPanel... взять?

[mak-karpov]

И еще.

НОРМАЛЬНЫМИ(!!!!) компонентами не мог сделать????