同上

解决方案 »

  1.   

    var
      H: HWND;c1 : THandle;
    begin
    SHChangeNotify(SHCNE_UPDATEDIR, SHCNF_IDLIST, nil, nil);
    SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
    SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NiL, NiL);
    H := FindWindow(PChar('ExploreWClass'), nil);
    sendMessage(FindWindow('Progman','Program Manager'),WM_COMMAND,$A065,0);
      

  2.   

    上面的函数好像是自定义的,不是Windows API吧