[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);