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

Вниз

Доступ к дополнительным свойствам файла в NTFS   Найти похожие ветки 

← →
ShaggyDoc ©   (2002-09-20 11:38) [0]

Как получить доступ к значениям свойств файла, отображающимся в стандартном диалоге свойств?

Вызов диалога делается так

procedure TFileInfo.DialogProperties;
var
sei: TShellExecuteInfo;
begin
FillChar(sei, SizeOf(sei), 0);
sei.cbSize := SizeOf(sei);
sei.lpFile := PChar(FFileName);
sei.lpVerb := "properties";
sei.fMask := SEE_MASK_INVOKEIDLIST;
ShellExecuteEx(@sei);
end;

Имеются ввиду не свойства специфичных файлов (например WORD), и не структурированных данных, а те, что хранятся где-то в атрибутах в NTFS

---

← →
ShaggyDoc ©   (2002-09-23 10:01) [1]

Так, никто не ответил. Это хорошо, значит ответ не на поверхности.

Если кого еще это интересует, см.

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=658&lngWId=7

или

http://www.howtodothings.com/showarticle.asp?article=447

---

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

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

Наверх

Память: 0.46 MB
Время: 0.015 c