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;

Я, наверно, перепутал закладки Sharing и Security,
вызов Sharing есть в меню, которое появляется по правой кнопке "мыши", поэтому дополнительный способ можно "вытащить" из Delphi?\Demos\ShellControls\ShellCtrls.pas

procedure InvokeContextMenu(Owner: TWinControl; AFolder: TShellFolder; X, Y: Integer);

Shell Найти похожие ветки