Текущий архив: 2008.06.01;
Скачать: CL | DM;
Вниз
Вывод окна свойств для файла или папки. Найти похожие ветки
← →
Nikfel © (2007-09-15 15:52) [0]Подскажите пожалуйста. Как вывести окно свойств файла или папки. Заранее спасибо.
← →
DVM © (2007-09-15 15:54) [1]
function FilePropertiesDialog(OwnerWnd: HWND; const FileName: string): boolean;
const
cProperties = "properties";
var
Info: TShellExecuteInfo;
begin
FillChar(Info, SizeOf(Info), #0);
with Info do
begin
cbSize := SizeOf(Info);
lpFile := PChar(FileName);
nShow := SW_SHOW;
fMask := SEE_MASK_INVOKEIDLIST;
Wnd := OwnerWnd;
lpVerb := cProperties;
end;
Result := ShellExecuteEx(@Info);
end;
← →
Nikfel © (2007-09-15 16:46) [2]Этот код на 100% рабочий или нет? У меня выдается ошибка 216 в delphi до бесконечности, а окно свойств отображается. Проверял на kol, а без kol не работает. Видно придется делать переустановку delphi. За код спасибо.
← →
nikfel © (2007-09-16 12:27) [3]Не могу разобраться почему не работает. Проверьте правильно ли я использую:
FilePropertiesDialog(form1.handle,"файл");
На Delphi не работает и выдает ошибку, на kol работает,но выдает ошибку 216 до бесконечности. Что делать?
← →
{RASkov} © (2007-09-16 12:31) [4]> [3] nikfel © (16.09.07 12:27)
> На Delphi не работает и выдает ошибку
какую ошибку выдает?
ЗЫ: У меня D7, работает нормально, только что проверил.
← →
Nikfel © (2007-09-16 13:14) [5]Вот что выдает Delphi7:
Project Project1.exe raised exseption class EAccessViolation with message "Access Violetion at address 00E70744. Read of address 00E70744". Process stopped. Use Step or Run to continue.
А на kol появляется окно свойств, но выдается ошибка 216(01220774) до бесконечности и тоже можно сказать не работает.
Если не через Delphi запустить программу на kol, открывая exe файл, то выдается следующее:
Super Utilities:имя файла - Ошибка приложения
Инструкция по адресу "0x01210774" обратилась к памяти по адресу "0x01210774". Память не может быть "read".
"ОК" -- завершение приложения
"Отмена" -- отладка приложения
← →
DVM © (2007-09-16 17:37) [6]
> Nikfel ©
У меня этот код всегда работал. Гарантии не дам, что будет работать во всех версиях Win, но на XP, XPSP1, XPSP2, Win98se работало.
В какой версии вин запускаешь?
← →
Nikfel © (2007-09-17 08:52) [7]Причиной оказалось программа Super Utilities. После удаления программы все заработало.
Что еще можно вызвать с помощью этой функции, если заменить const на другую?
← →
clickmaker © (2007-09-17 11:26) [8]
> Что еще можно вызвать с помощью этой функции
запускать процесс
Страницы: 1 вся ветка
Текущий архив: 2008.06.01;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.012 c
