Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c
15-1140440306
tytus
2006-02-20 15:58
2006.03.12
Как в екселе писать дату как текст?


15-1140023986
Ученик чародея
2006-02-15 20:19
2006.03.12
Америка требует отменить торговые льготы, предоставляемые России.


2-1140711503
K_Lock
2006-02-23 19:18
2006.03.12
Ошибка......


2-1140437290
Creative
2006-02-20 15:08
2006.03.12
LoadFromFile


2-1140362816
delphi-oracle
2006-02-19 18:26
2006.03.12
Как нажать не свою кнопку.




   Наверх