Форум: "Система";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
ВнизShell Найти похожие ветки
← →
cypher (2002-10-17 23:48) [0]Как программно открыть закладку "Доступ..." в свойствах папки?
← →
Ученик (2002-10-18 08:35) [1]Частичное решение
{ Project JEDI Code Library }
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 := "properties";
end;
Result := ShellExecuteEx(@Info);
end;
← →
cypher (2002-10-19 01:26) [2]Это я умею... еще есть более лучший вариант через ActiveX, но как выбрать закладку "Доступ" ????
← →
Ученик (2002-10-19 19:27) [3]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 := "properties";
lpParameters := "Security";
end;
Result := ShellExecuteEx(@Info);
end;
← →
Ученик (2002-10-20 13:51) [4]Я, наверно, перепутал закладки Sharing и Security,
вызов Sharing есть в меню, которое появляется по правой кнопке "мыши", поэтому дополнительный способ можно "вытащить" из Delphi?\Demos\ShellControls\ShellCtrls.pas
procedure InvokeContextMenu(Owner: TWinControl; AFolder: TShellFolder; X, Y: Integer);
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c