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

Вниз

Вызов Properties   Найти похожие ветки 

← →
ZEE ©   (2002-10-08 17:43) [0]

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

---

← →
Smithson ©   (2002-10-08 17:44) [1]

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

---

← →
ZEE ©   (2002-10-08 17:52) [2]

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

---

← →
qube ©   (2002-10-08 17:56) [3]

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

---

← →
alena.svt ©   (2002-10-09 18:52) [4]

>
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;

---

← →
ZEE ©   (2002-10-10 01:34) [5]

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

---

← →
Rouse_ ©   (2002-10-10 01:40) [6]

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

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.02 c