Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Свойства файла [XP]


Litestone ©   (2007-02-04 11:51:00) 

Привет всем!!!

Знает ли кто нибудь, как из своей программы запустить окно - свойства файла из Windows(щелкнуть правой кнопкой мыши по файлу и выбрать пункт свойства), если известен путь к файлу.

Заранее благодарен за ответы.


Litestone   (2007-02-04 14:53:00) [1]

Громадное спасибо Virgo_Style всё работает.

P.S. кладовка хорошая вещь.


Virgo_Style   (2007-02-04 14:44:00) [2]

http://kladovka.net.ru/delphibase/?action=viewfunc&topic=fileattr&id=10057


Litestone   (2007-02-04 14:33:00) [3]

Дак я пробовал, я всё пробовал и то что я предложил, единственное, что у меня получилось.


Anatoly Podgoretsky   (2007-02-04 14:26:00) [4]

Пробовать твоя задача


Litestone   (2007-02-04 14:07:00) [5]

а ты пробовал делать 1 вариант.


Virgo_Style   (2007-02-04 14:01:00) [6]

Litestone   (04.02.07 13:51) [4]
теперь сравни [4] и [1]


Litestone   (2007-02-04 13:51:00) [7]

с импортированием я просто не знаю какие параметры у этой функции,
а 2 способ тоже выдаёт глюк.

var d:PShellExecuteInfoA;
begin
d.lpVerb:=PChar(FileName);
ShellExecuteEx(d);
end;


Leonid Troyanovsky   (2007-02-04 13:43:00) [8]


> Litestone   (04.02.07 12:43) [2]

> эту функцию, а то я попробовал и ничего не получись.

Показывай.

--
Regards, LVT.


Litestone   (2007-02-04 12:43:00) [9]

begin...end, а ты не мог бы написать пример кода как импортирвать эту функцию, а то я попробовал и ничего не получись.


begin...end   (2007-02-04 12:15:00) [10]

Можно использовать API-функцию SHObjectProperties (если не ошибаюсь, её потребуется импортировать из Shell32.dll самостоятельно). Есть и ещё вариант -- ShellExecuteEx с SHELLEXECUTEINFO.lpVerb = 'properties', но я бы предпочёл первое.


Наверх

Титульная страница Поиск, карта сайта Написать письмо