Главная страница
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.065 c
1-1139488424
Kot
2006-02-09 15:33
2006.03.12
Подскажите


15-1139864793
QwertyKz
2006-02-14 00:06
2006.03.12
Замена строк


2-1140813780
TStas
2006-02-24 23:43
2006.03.12
В каком модуле описана DeleteFolder


3-1137799034
Kabazoo
2006-01-21 02:17
2006.03.12
Сервер и время


2-1140807872
Fl@sh
2006-02-24 22:04
2006.03.12
FireBird!!!!!