Форум: "WinAPI";
Текущий архив: 2002.12.16;
Скачать: [xml.tar.bz2];
ВнизКак вызвать системное окошко с пропертисами файла Найти похожие ветки
← →
Demn (2002-11-03 07:13) [0]Как можно это сделать, если возможно. Подскажите плиз.
← →
Ученик (2002-11-03 10:42) [1]{ Project JEDI Code Library (JCL) }
const
cVerbProperties = "properties";
//--------------------------------------------------------------------------------------------------
function DisplayPropDialog(const Handle: HWND; const FileName: string): Boolean;
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 := Handle;
lpVerb := cVerbProperties;
end;
Result := ShellExecuteEx(@Info);
end;
← →
Demn (2002-11-04 02:54) [2]Большое спасибо!
Я примерно так и думал... ;)
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.12.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c