Вывод окна свойств для файла или папки.

← →
Nikfel © (2007-09-15 15:52) [0]

Подскажите пожалуйста. Как вывести окно свойств файла или папки. Заранее спасибо.

← →
DVM © (2007-09-15 15:54) [1]

function FilePropertiesDialog(OwnerWnd: HWND; const FileName: string): boolean; const cProperties = "properties"; var Info: TShellExecuteInfo; begin FillChar(Info, SizeOf(Info), #0); with Info do begin cbSize := SizeOf(Info); lpFile := PChar(FileName); nShow := SW_SHOW; fMask := SEE_MASK_INVOKEIDLIST; Wnd := OwnerWnd; lpVerb := cProperties; end; Result := ShellExecuteEx(@Info); end;

← →
Nikfel © (2007-09-15 16:46) [2]

Этот код на 100% рабочий или нет? У меня выдается ошибка 216 в delphi до бесконечности, а окно свойств отображается. Проверял на kol, а без kol не работает. Видно придется делать переустановку delphi. За код спасибо.

← →
nikfel © (2007-09-16 12:27) [3]

Не могу разобраться почему не работает. Проверьте правильно ли я использую:
FilePropertiesDialog(form1.handle,"файл");
На Delphi не работает и выдает ошибку, на kol работает,но выдает ошибку 216 до бесконечности. Что делать?

← →
{RASkov} © (2007-09-16 12:31) [4]

> [3] nikfel © (16.09.07 12:27)
> На Delphi не работает и выдает ошибку

какую ошибку выдает?
ЗЫ: У меня D7, работает нормально, только что проверил.

← →
Nikfel © (2007-09-16 13:14) [5]

Вот что выдает Delphi7:
Project Project1.exe raised exseption class EAccessViolation with message "Access Violetion at address 00E70744. Read of address 00E70744". Process stopped. Use Step or Run to continue.
А на kol появляется окно свойств, но выдается ошибка 216(01220774) до бесконечности и тоже можно сказать не работает.
Если не через Delphi запустить программу на kol, открывая exe файл, то выдается следующее:
Super Utilities:имя файла - Ошибка приложения
Инструкция по адресу "0x01210774" обратилась к памяти по адресу "0x01210774". Память не может быть "read".

"ОК" -- завершение приложения
"Отмена" -- отладка приложения

> Nikfel ©

У меня этот код всегда работал. Гарантии не дам, что будет работать во всех версиях Win, но на XP, XPSP1, XPSP2, Win98se работало.
В какой версии вин запускаешь?

Причиной оказалось программа Super Utilities. После удаления программы все заработало.
Что еще можно вызвать с помощью этой функции, если заменить const на другую?

> Что еще можно вызвать с помощью этой функции

запускать процесс

Вывод окна свойств для файла или папки. Найти похожие ветки