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

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

Как вывести Диалог свойств Windows К оприделённому файлу ? [D7, WinXP]

Сергей ©   (2008-11-18 11:14:00) 

Как вывести Диалог свойств Windows К оприделённому файлу ?

---

  (2009-03-24 12:27:00) [1]

Удалено модератором

---

  (2009-03-24 12:26:00) [2]

Удалено модератором

---

clickmaker   (2008-11-21 11:47:00) [3]

SHObjectProperties()

---

Vayrus   (2008-11-21 09:55:00) [4]


uses
Windows, ShellApi;

procedure FilePropertiesDialog(const Filename: string);
var
 sei: TShellExecuteInfo;
begin
 FillChar(sei, SizeOf(sei), 0);
 sei.cbSize := SizeOf(sei);
 sei.lpFile := PChar(FileName);
 sei.lpVerb := 'properties';
 sei.fMask := SEE_MASK_INVOKEIDLIST;
 ShellExecuteEx(@sei);
end;


---

Сергей   (2008-11-18 12:12:00) [5]

Спасибо ) работает

---

{RASkov}   (2008-11-18 12:08:00) [6]

{Зависимости: Windows, ShellAPI
Автор:       arbiter, arbiter@mail.ru, Минск
Copyright:   Собственное написание (arbiter)
Дата:        23 мая 2002 г.
********************************************** }

procedure ShowFileProperties(const FileName: string);
var ShellExecuteInfo: TShellExecuteInfo;
begin
 // Инициализация структуры TShellExecuteInfo
 FillChar(ShellExecuteInfo, SizeOf(TShellExecuteInfo), 0);
 // Заполнение структуры TShellExecuteInfo
 ShellExecuteInfo.cbSize := SizeOf(TShellExecuteInfo);
 ShellExecuteInfo.lpFile := PChar(FileName);
 ShellExecuteInfo.lpVerb := 'properties';
 ShellExecuteInfo.fMask := SEE_MASK_INVOKEIDLIST;
 // Отображение свойств файла
 ShellExecuteEx(@ShellExecuteInfo);
end;

//Пример использования:
ShowFileProperties('c:\autoexec.bat');
не проверял

---

Наверх