Wie im Datei-Eigenschaften Dialog zusätzliche Sicherheitsoption anzeigen lassen

[Harry Stahl]

Aus diesem Thread bin ich darauf aufmerksam geworden, dass man in dem Dateieigenschafts-Dialog eine zusätzliche Option zur Sicherheit anzeigen lassen kann (ganz unten).

Wenn ich den Dialog programmgesteuert aufrufe, habe ich das bislang mit der unten stehenden Funktion gemacht, da fehlt aber der untere Eintrag zur Sicherheit. Was muss ich ändern, damit dieser auch angezeigt wird?

Delphi-Quellcode:

function ShowProperties(hWndOwner: HWND; const FileName: string;
                        Registerkarte: PChar): Boolean;
var
  Info: TShellExecuteInfo;
begin
  { Fill in the SHELLEXECUTEINFO structure }
  with Info do begin
    cbSize := SizeOf(Info);
    fMask := SEE_MASK_NOCLOSEPROCESS or
             SEE_MASK_INVOKEIDLIST or
             SEE_MASK_FLAG_NO_UI;
    wnd  := hWndOwner;
    lpVerb := 'properties';
    lpFile := pChar(FileName);
    lpParameters := registerkarte;
    lpDirectory := nil;
    nShow := 0;
    hInstApp := 0;
    lpIDList := nil;
  end;

  { Call Windows to display the properties dialog. }
  Result := ShellExecuteEx(@Info);
end;