Программа как Fences (Прорисовка Иконок на рабочем столе)

void run()
{
    CComPtr<IShellWindows> spShellWindows;
    CComPtr<IShellBrowser> spBrowser;
    CComPtr<IDispatch> spDispatch;
    CComPtr<IShellView> spShellView;
    CComPtr<IFolderView2>  spView;
    CComPtr<IShellFolder> spFolder;
    CComPtr<IEnumIDList>  spEnum;
    CComHeapPtr<ITEMID_CHILD> spidl;
    CComVariant vtLoc(CLSID_ShellWindows);
    CComVariant vtEmpty;
    STRRET str;
 
    setlocale(LC_ALL, "Russian");
    UINT a = 0;
    UINT b = 0;
    FOLDERSETTINGS LPFOLDERSETTINGS = { a, b };
 
    int count = 0;
    HRESULT hr;
    long lhWnd;
 
    hr = CoInitializeEx(NULL, COINITBASE_MULTITHREADED | COINIT_DISABLE_OLE1DDE);
 
    hr = spShellWindows.CoCreateInstance(CLSID_ShellWindows);
 
    hr = spShellWindows->FindWindowSW(&vtLoc, &vtEmpty, SWC_DESKTOP, &lhWnd, SWFO_NEEDDISPATCH, &spDispatch);
 
    CComQIPtr<IServiceProvider>(spDispatch)->QueryService(SID_STopLevelBrowser, IID_PPV_ARGS(&spBrowser));
 
    spBrowser->QueryActiveShellView(&spShellView);
 
    hr = spShellView->GetCurrentInfo(&LPFOLDERSETTINGS);
 
 
    spShellView->QueryInterface(IID_PPV_ARGS(&spView));
 
    hr = spView->GetFolder(IID_PPV_ARGS(&spFolder));
 
    spView->Items(SVGIO_ALLVIEW, IID_PPV_ARGS(&spEnum));
 
    for (; spEnum->Next(1, &spidl, nullptr) == S_OK; spidl.Free()) {
        // GET/PRINT ICON NAME AND POSITION
        wchar_t* name;
        POINT pt;
        spFolder->GetDisplayNameOf(spidl, SHGDN_NORMAL, &str);
        StrRetToStrW(&str, spidl, &name);
        spView->GetItemPosition(spidl, &pt);
        printf("%5d %5d \"%ls\"\n", pt.x, pt.y, name);
        count++;
    }
    fprintf(stderr, "enumerated %d desktop icons\n", count);
    spShellWindows.Release();
    spBrowser.Release();
    spDispatch.Release();
    spShellView.Release();
    spView.Release();
    spFolder.Release();
    spEnum.Release();
    spidl.Free();
 
    CoUninitialize();
}