Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.56 MB
Время: 0.032 c
14-68912
AL2002
2002-09-26 15:14
2002.10.21
Это будет жестоко?


1-68858
KLOP
2002-10-10 15:15
2002.10.21
Не могу в DBGrid обработать двойной клик по записи


3-68666
dias
2002-09-30 18:48
2002.10.21
Проблема с доступом к БД Paradox в сети


3-68658
Leviathan
2002-09-29 23:46
2002.10.21
IBDatabase.CreateDatabase


1-68825
Sergey_Elf
2002-10-10 10:32
2002.10.21
Запускаю архиватор через shellexecute, как узнать когда закончил





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский