Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c