Текущий архив: 2010.08.27;
Скачать: CL | DM;
Вниз
Как вывести Диалог свойств Windows К оприделённому файлу ? Найти похожие ветки
← →
Сергей (2008-11-18 11:14) [0]Как вывести Диалог свойств Windows К оприделённому файлу ?
← →
{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]Удалено модератором
Страницы: 1 вся ветка
Текущий архив: 2010.08.27;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.09 c
