Вызов 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;

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

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

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

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