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

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

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

Nikfel ©   (2007-09-15 15:52:00) 

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

---

clickmaker   (2007-09-17 11:26:00) [1]

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

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

---

Nikfel   (2007-09-17 08:52:00) [2]

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

---

DVM   (2007-09-16 17:37:00) [3]

> Nikfel ©

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

---

Nikfel   (2007-09-16 13:14:00) [4]

Вот что выдает 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".

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

---

{RASkov}   (2007-09-16 12:31:00) [5]

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

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

---

nikfel   (2007-09-16 12:27:00) [6]

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

---

Nikfel   (2007-09-15 16:46:00) [7]

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

---

DVM   (2007-09-15 15:54:00) [8]

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;

---

Наверх