Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
ВнизВызов 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c