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

← →
Сергей (2008-11-18 11:14) [0]

← →
{RASkov} © (2008-11-18 12:08) [1]

{Зависимости: 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");
не проверял

← →
Сергей (2008-11-18 12:12) [2]

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

← →
Vayrus (2008-11-21 09:55) [3]

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;

← →
clickmaker © (2008-11-21 11:47) [4]

SHObjectProperties()

← →
имя (2009-03-24 12:26) [5]

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

← →
имя (2009-03-24 12:27) [6]

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

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