Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.12;
Скачать: CL | DM;

Вниз

Как открыть папку в том же окне с помощью ShellExecute???   Найти похожие ветки 

 
Volf_555   (2005-12-20 19:36) [0]

В реестр добавил контекстное меню к папке и прописал в значении по умолчанию:
"D:\Programs\Exec.exe" "%1"
В программе пишу:
ShellExecute(handle,"open",nil,nil,PChar(ParamStr(1)),SW_Normal);
В результате папка открывается в новом окне... Как сделать чтобы папка открывалась в том же окне?


 
Lamer@fools.ua ©   (2005-12-20 20:25) [1]

Не уверен, но попробуйте вместо "open" написать nil.


 
Volf_555   (2005-12-20 20:47) [2]


> Lamer@fools.ua ©   (20.12.05 20:25) [1]
> Не уверен, но попробуйте вместо "open" написать nil.


В таком случае вообще никаких действий не происходит с папкой, а просто постоянно открывается программа и закрывается - и так до бесконечности


 
Lamer@fools.ua ©   (2005-12-21 09:01) [3]

Я, оказывается, невнимательно вопрос прочитал.

Вот это:
>В результате папка открывается в новом окне... Как сделать чтобы папка открывалась в том же окне?
совсем непонятно. К каком том же окне?


 
Lamer@fools.ua ©   (2005-12-21 09:02) [4]

>К каком
Сорри, читать "В каком".


 
Volf_555   (2005-12-21 19:32) [5]

Допустим - сейчас я нахожусь в папке С:\ >> нажимаю правой кнопкой на папке с именем Files >> выбираю OpenWithMyProg >> запускается моя програма, которая открывает папку и записывает лог в файл.

Но когда я таким образом:

> "D:\Programs\Exec.exe" "%1"
> В программе пишу:
> ShellExecute(handle,"open",nil,nil,PChar(ParamStr(1)),SW_Normal);
>

открываю папку, то папка открывается в новом окне.


 
Lamer@fools.ua ©   (2005-12-21 20:27) [6]

>>Volf_555   (21.12.05 19:32) [5]

IMHO, это с помощью внешней программы не сделать. Нужно писать Shell Extension (или как там их). Пример есть в поставке Delphi в Demos\ActiveX\ShellExt, если не ошибаюсь.



Страницы: 1 вся ветка

Текущий архив: 2006.03.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.039 c
2-1140446258
s&r
2006-02-20 17:37
2006.03.12
[?]RxRichEdit


15-1139824556
Гарри Поттер
2006-02-13 12:55
2006.03.12
VPN+Outlook+Exchange


15-1140285940
Firefly
2006-02-18 21:05
2006.03.12
Алгоритмы


2-1140975843
TimScorp
2006-02-26 20:44
2006.03.12
Звук при нажатии клавиши


8-1127918290
Виталька2005
2005-09-28 18:38
2006.03.12
Перемещение фигуры на TCanvas