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

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

Вызов Properties

ZEE ©   (2002-10-08 17:43:00) 

Как вызвать окно "пропертисов" файла (как в проводнике File\Properties)?
Заранее спасибо за ответы на (думается) не сложный вопрос.

---

Rouse_   (2002-10-10 01:40:00) [1]

А вот можно я немножко уточню? Как открыть окно свойств но на закладке к примеру "Доступ" я раньше пробовал с месяц назад, и добрался только до вышеприведенного кода

Заранее спасибо

---

ZEE   (2002-10-10 01:34:00) [2]

>alena.svt
Спасибо. Все работает вери-вел.

---

alena.svt   (2002-10-09 18:52:00) [3]

>
uses ShellApi; //Не забудь


procedure ShowProperties(FName: string);
var
SExInfo: SHELLEXECUTEINFO;{ Версию дельфи указывать блин нужно если третья то TSHELLEXECUTEINFO}
Error: LongInt;
begin
try
ZeroMemory(addr(SExInfo),SizeOf(SExInfo));
SExInfo.cbSize := SizeOf(SExInfo);
SExInfo.lpFile := PChar(FName);
SExInfo.lpVerb := "properties";
SExInfo.fMask := SEE_MASK_INVOKEIDLIST;
ShellExecuteEx(addr(SExInfo));
except
Error:=GetLastError;
case Error of
// Здесь ошибочки WinApi перехватывай
//Если не хочешь снеси блок case Error of .. end;
//например: "Нет доступа"
ERROR_ACCESS_DENIED: ShowMessage("Access denied");

end;
end;
end;


Вызываем просто

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowProperties("C:\");
или
ShowProperties("C:\autoexec.bat");
end;

---

qube   (2002-10-08 17:56:00) [4]

Не скажу точно, ибо не приходилось мне такие задачи решать. Но копать надо в сторону Shell Library.

---

ZEE   (2002-10-08 17:52:00) [5]

OK. Это конечно клевый вариант, но думается есть более простой. Например WinCommander даже менюшку Explorer-а подгребает и соотв. окно свойств вызывает тоже.
Может все-таки кто-нибудь знает...

---

Smithson   (2002-10-08 17:44:00) [6]

Будешь смется - программно. Собираешь информацию о файле и рисуешь форму

---

Наверх