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

Вниз

окно Свойства для указанного файла   Найти похожие ветки 

← →
xuthus   (2005-09-29 12:56) [0]

Здравствуйте!

Как мне отобразить окно Свойства для указанного файла?
То есть есть имя файла, нужно отобразить то окошко, которое появляется при выборе пункта Свойства в Эксплорере в контекстном меню Проводника. В дальнейшем мне неинтересно, что пользователь сделал с этим окошком и собственно свойствами файла - нужно только открыть. Можно даже через какой-нибудь rundll

---

← →
begin...end ©   (2005-09-29 13:05) [1]

Используйте функцию ShellExecuteEx из модуля ShellAPI. Пример:

procedure ShowFileProperties(const FileName: String);
var
 Info: TSHELLEXECUTEINFO;
begin
 ZeroMemory(@Info, SizeOf(Info));
 with Info do
 begin
   cbSize := SizeOf(Info);
   lpFile := PChar(FileName);
   lpVerb := "properties";
   fMask  := SEE_MASK_INVOKEIDLIST;
 end;
 ShellExecuteEx(@Info);
end

---

← →
xuthus   (2005-09-29 14:00) [2]

Спасибо, помогло :) Удачи!

---

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

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

Наверх

Память: 0.47 MB
Время: 0.048 c