Как получить путь к виртуальной папке «Мой компьютер»? - PullRequest
Новая
       27

Как получить путь к виртуальной папке «Мой компьютер»?

0 голосов
/ 09 апреля 2019

Моя задача звучит очень просто ... Так я подумал.

Задача: Использовать диалог FileCtrl.SelectDirectory только с локальными дисками.Отображение подключенных дисков, сети, общих папок и других удаленных путей недопустимо.

Похоже, неплохо было бы открыть диалоговое окно с виртуальной папкой Root = My Computer.

Но когда я пытаюсьразные подходы к получению пути В результате я всегда получаю пустую строку.

Пожалуйста, покажите мне, что я делаю неправильно?

В приведенном ниже примере я показываю два моих подхода, которые очень популярны в сети.. 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cxClasses, cxShellBrowserDialog, FileCtrl, ShlObj, KnownFolders,
  ActiveX;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetKnownFolderPath(const folder : KNOWNFOLDERID ) : string;
var
  path: LPWSTR;
begin
  if SUCCEEDED(SHGetKnownFolderPath(folder, 0, 0, path)) then
  begin
    try
      Result := path;
    finally
      CoTaskMemFree(path);
    end;
  end else
    Result := '';
end;

function GetSpecialFolderPath(CSIDLFolder: Integer): string;
var
   FilePath: array [0..MAX_PATH] of char;
begin
  SHGetFolderPath(0, CSIDLFolder, 0, 0, FilePath);
  Result := FilePath;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Root, Directory: String;
begin
  Root := GetKnownFolderPath(FOLDERID_ComputerFolder);
  SelectDirectory('caption', Root, Directory, [sdNewUI, sdShowShares], nil);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Root, Directory: String;
begin
  Root := GetSpecialFolderPath($0011); //CSIDL_DRIVES 
  SelectDirectory('caption', Root, Directory, [sdNewUI, sdShowShares], nil);
end;

end.

1 Ответ

0 голосов
/ 09 апреля 2019

SelectDirectory() работает только с путями файловой системы, но не с виртуальными элементами. Элементы, которые вы пытаетесь установить для Root, не имеют путей к файловой системе.

Если вы хотите отобразить диалоговое окно, которое работает с виртуальными элементами, вы должны использовать SHBrowseForFolder() напрямую или IFile(Open)Dialog вместо этого. Затем вы можете работать с элементами, представленными PIDL s или IShellItem интерфейсом соответственно.

...