哪位老鸟知道怎么调用windows的新建文件夹函数，估计没有人能答出来，答出来我把小鸡鸡切了

Question

注意看清题目， 我希望有这么一种效果， 新建文件夹后自动命名为新建文件夹（1）， 新建文件夹（2）， 也就是跟调用windows自己的新建文件夹函数一样，不要用CreateDir， 也不要用CreateDirectory， 也不要去遍历当前新建文件夹（n)是几， 就是直接取得windows的新建文件夹命令

Answer 1

use IContextMenu::InvokeCommand.
For a sample, see
http://blogs.msdn.com/oldnewthing/archive/2004/09/20/231739.aspx
For better manner, see http://community.csdn.net/HomePage/SmartQuestion.aspx

Answer 2

曾经试过用IContextMenu2和GetUIObjectOf这两个，因为新建文件夹这个命令不属于具体某个文件对象的，
新建文件夹这个菜单项是在单击ListView的空白处才出来的， 自己能力有限无法实现，哪位大佬指点迷津，
都快疯了

Answer 3

自增 
try到可以创建为止。。

Answer 4

The background shortcut menu is obtained by calling IShellView::GetItemObject with the SVGIO_BACKGROUND flag.

Answer 5

我也赞成先切了之后再要答案，最好把切的全过程跟拍一下，估计CSDN会同意你上传到服务器上以便所有提问者共勉！

Answer 6

没有这种函数的,楼主所谓的"windows的新建文件夹命令" ,只是windows 的exploer程序实现的一个功能而已另:其实也不用遍历,直接CreateDirectory 新建文件夹（1),如果失败,就CreateDirectory新建文件夹（2）,再失败就CreateDirectory 新建文件夹（3).......... ,

Answer 7

帮up下，不能联系答3次，已经解决了 呵呵，帮忙的给分哦
http://community.csdn.net/Expert/topic/4782/4782203.xml?temp=.3747675

Answer 8

楼主想过如何调用windows桌面这样强大的功能是ListView吗？我一直都很关注这一点

Answer 9

function WjcMoveFile(FromPath, topath: string): Boolean;
var
  lpFileOp: TShFileOpStruct;
begin
  with lpFileOp do
  begin
    Wnd := Application.handle;
    wFunc := FO_COPY;
    pFrom := Pchar(FromPath + #0#0);
    pTo := Pchar(topath + #0#0); ;
    fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION or fof_noconfirmmkdir;
    hNameMappings := nil;
    lpszProgressTitle := nil;
    fAnyOperationsAborted := True;
  end;
  if SHFileOperation(lpFileOp) <> 0 then
    Result := False
  else
    Result := True;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  aa: string;
begin
  aa := extractfilepath(Application.ExeName)+'新建文件夹';
  WjcMoveFile(aa,aa)
end;
有点问题,自己改吧

Answer 10

楼主慢慢切JJ.....
我试了一下,楼主的问题不难.简单这样几步:
1,取得文件夹的IShellFolder接口.
2,从IShellFolder接口CreateViewObject从而得到IShellView
3,从IShellView.GetItemObject(第一个参数用SVGIO_BACKGROUND)得到IContextMenu
4,IContextMenu.InvokeCommand,其中Verb命令用'NewFolder'
以上几步容易误入歧途的是取IContextMenu的方法..
如果按这样取的上下文菜单,是没有NewFolder命令可以执行的.
ShellFolder.ParentShellFolder.GetUIObjectOf(0, 1, PIDL, IID_IContextMenu, nil, contextmenu))

Answer 11

不会吧??这也叫难题?还要割小JIJI???忽悠谁啊?

Answer 12

uses comobj,shlobj;function GetShellFolderFromPath(owner:IShellFolder;path:string):IShellFolder;
var
  P: PWideChar;
  folder:IShellFolder;
  NewPIDL: PItemIDList;
  NumChars,
  Flags,
  HR: LongWord;begin
  P:=StringToOleStr(path);
  NumChars:=Length(path);
  OleCheck(owner.ParseDisplayName(0, nil, P, NumChars, NewPIDL, Flags));
  OleCheck(owner.BindToObject(NewPIDL,nil,IShellFolder,folder));  Result:=folder;
end;procedure ExecuteContextMenuCommand(cm:IContextMenu;cmd:string);
var
  menu:HMENU;
  ci: TCMInvokeCommandInfo;
//  rt:TRect;  
begin
  menu:=CreatePopupMenu;
  OleCheck(cm.QueryContextMenu(menu,0,0,99999,CMF_NORMAL));
//  TrackPopupMenu (menu,TPM_RETURNCMD or TPM_LEFTALIGN,200,200, 0,Handle,@rt);
  DestroyMenu(menu);  FillChar(ci,sizeof(ci),#0);
    ci.cbSize:=sizeof(ci);
    ci.lpVerb:=pchar(cmd);
  OleCheck(cm.InvokeCommand(ci));end;procedure TForm1.Button1Click(Sender: TObject);
var
  folder:IShellFolder;
  view:IShellView;
  cm:IContextMenu;
  desk:IShellFolder;begin
//
  OleCheck(SHGetDesktopFolder(desk));
  folder:=GetShellFolderFromPath(desk,'D:\tmp2');
  OleCheck(folder.CreateViewObject(Handle,IShellView,view));
  OleCheck(view.GetItemObject(SVGIO_BACKGROUND,IContextMenu,pointer(cm)));
  ExecuteContextMenuCommand(cm,'NewFolder');end;

Answer 13

估计LZ这次的小JJ是要真的没有了，哈坎，你真下得了手啊，给个切JJ的方法还不中，还要
全程丝丝录像！
算你狠

Answer 14

我日。这么简单的问题。CreateDir("c:\11");
看你c是不是多了11目录

Answer 15

没看清楚。。那就用API调用操作系统的操作啊。

Answer 16

我把哈欠的代码翻译成C++Builder版了，请楼主遵守诺言，赶紧切jj先。//---------------------------------------------------------------------------
#define NO_WIN32_LEAN_AND_MEAN
#include <shlobj.h>
#include <vcl.h>
#pragma hdrstop#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
#include <Comobj.hpp>
//---------------------------------------------------------------------------
IShellFolder *CrnGetShellFolderFromPath(IShellFolder *sfOwner, LPSTR lpPath)
{
    IShellFolder *pShellFolder;    wchar_t *wszFolder = StringToOleStr(lpPath);
    DWORD dwEaten = strlen(lpPath);
    LPITEMIDLIST lpNewPIDL;
    DWORD dwFlags;    OleCheck(sfOwner->ParseDisplayName(0, NULL, wszFolder, &dwEaten, &lpNewPIDL, &dwFlags));
    OleCheck(sfOwner->BindToObject(lpNewPIDL, NULL, IID_IShellFolder, (void **)&pShellFolder));
    return pShellFolder;
}
//---------------------------------------------------------------------------
void CrnExecContextMenuCmd(IContextMenu *cm, LPSTR lpCmd)
{
    CMINVOKECOMMANDINFO cmici;    HMENU hMenu = CreatePopupMenu();
    OleCheck(cm->QueryContextMenu(hMenu, 0, 0, 99999, CMF_NORMAL));
    DestroyMenu(hMenu);    ZeroMemory(&cmici, sizeof(cmici));
    cmici.cbSize = sizeof(cmici);
    cmici.lpVerb = lpCmd;
    OleCheck(cm->InvokeCommand(&cmici));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    IShellFolder *lpFolder;
    IShellView *lpShellView;
    IContextMenu *lpConMenu;
    IShellFolder *lpDeskFolder;    OleCheck(SHGetDesktopFolder(&lpDeskFolder));
    lpFolder = CrnGetShellFolderFromPath(lpDeskFolder, "C:\\ccrun");
    OleCheck(lpFolder->CreateViewObject(Handle, IID_IShellView, (void **)&lpShellView));
    OleCheck(lpShellView->GetItemObject(SVGIO_BACKGROUND, IID_IContextMenu, (void **)&lpConMenu));
    CrnExecContextMenuCmd(lpConMenu, "NewFolder");
}
//---------------------------------------------------------------------------