Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.23;
Скачать: 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 вся ветка

Текущий архив: 2002.12.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
6-74870
bartov
2002-10-28 18:49
2002.12.23
RAS


1-74718
MegaVoltik
2002-12-10 17:54
2002.12.23
горячие клавиши


14-74965
NONAME00
2002-11-30 19:06
2002.12.23
CMOS


1-74629
vilfred
2002-12-10 14:42
2002.12.23
глюки в объявлении переменных


4-75040
Erik
2002-11-07 23:01
2002.12.23
Окно на самом верху