1

シェルを使用してコントロール パネルを取得します

コード：

procedure TForm1.FormCreate(Sender: TObject);
var
  psfDeskTop: IShellFolder;
  psfWork: IShellFolder; 
  pidworkDir: PITEMIDLIST;
  pidChild: PITEMIDLIST;
  pEnumList: IEnumIDList;
  celtFetched: ULONG;
  FileInfo: SHFILEINFOW;

begin

  Memo1.Clear;
  SHGetDesktopFolder(psfDeskTop);
  //control panel
  SHGetSpecialFolderLocation(0, CSIDL_CONTROLS, pidworkDir);  
  psfDeskTop.BindToObject(pidworkDir, nil, IID_IShellFolder, psfWork);
  psfWork.EnumObjects(0, SHCONTF_NONFOLDERS or SHCONTF_FOLDERS or SHCONTF_INCLUDEHIDDEN, pEnumList);
  while pEnumList.Next(1, pidChild, celtFetched) = 0 do
  begin

    SHGetFileInfo(LPCTSTR(pidChild), 0, FileInfo, SizeOf(FileInfo), SHGFI_PIDL
      or SHGFI_TYPENAME or SHGFI_DISPLAYNAME or SHGFI_USEFILEATTRIBUTES);

    Memo1.Lines.Add(FileInfo.szDisplayName + '   +');

  end;  
end;

取得できません 。Memo1 を表示するためFileInfo.szDisplayNameに使用 します。' +'コントロール パネル名を取得できないのはなぜですか?

ここに画像の説明を入力

4

1 に答える 1

1

私はシェルの専門家ではありません。実際、私は事実上何も知りません。しかし、ドキュメントを読むことで、次のことがわかります。

  1. SHGetFileInfo絶対 PIDL が必要です。
  2. IEnumIDList相対 PIDL を列挙します。

そのため、コードは必ず失敗します。おそらく他のエラーもあります。わかりません。

とにかく、問題を解決する簡単な方法は、IShellFolder.GetDisplayNameOf必要な名前を取得するために使用することだと思います:

uses
  ..., ShLwApi, ...
....
var
  StrRetName: TStrRet;
  Name: PChar;
....  
while pEnumList.Next(1, pidChild, celtFetched) = 0 do
begin
  OleCheck(psfWork.GetDisplayNameOf(pidChild, SHGDN_NORMAL, StrRetName));
  OleCheck(StrRetToStr(@StrRetName, nil, Name));
  Memo1.Lines.Add(Name);
  CoTaskMemFree(Name);
  CoTaskMemFree(pidChild);
end;
于 2012-10-31T09:10:27.447 に答える