么意思博客

procedure TForm1.Button3Click(Sender: TObject);
var
  sFolder: IShellFolder;
  pIDList: PITEMIDLIST;
  fullPath: WideString;
  Len: integer;
  buffer: array [0 .. MAX_PATH] of Char;
  pchEaten, Attributes: ULONG;
begin
  Len := GetTempPathW(0, nil);
  SetLength(fullPath, Len);
  GetTempPathW(Len, @fullPath[1]);
  SHGetDesktopFolder(sFolder);
  sFolder.ParseDisplayName(0, nil, @fullPath[1], pchEaten, pIDList, Attributes);
  SHGetPathFromIDList(pIDList, buffer);
  ShowMessage(buffer);
end;