Любопытно складывается

В букмарках застряло когда-то и вот теперь попало на глаза. Запись любопытная во многих отношениях. Тут и шпаргалка по использованию виндовых компонент и иллюстрация нативного COM-программирования и страшилка для скриптокодеров. Да мало ли уцепит взгляд пытливого человека?

Лично я тут вижу напоминание о кодерском кошмаре, которым когда-то приходилось заниматься.

Often, the pieces you need are already there; you just have to figure out how to put them together. Notice that each of the pieces is in itself not very big. You just had to recognize that they could be put together in an interesting way.

void CALLBACK RecalcText(HWND hwnd, UINT, UINT_PTR, DWORD) { HWND hwndFind = GetForegroundWindow(); g_szPath[0] = TEXT('\0'); g_szItem[0] = TEXT('\0'); IShellWindows *psw; if (SUCCEEDED(CoCreateInstance(CLSID_ShellWindows, NULL, CLSCTX_ALL, IID_IShellWindows, (void**)&psw))) { VARIANT v; V_VT(&v) = VT_I4; IDispatch *pdisp; BOOL fFound = FALSE; for (V_I4(&v) = 0; !fFound && psw->Item(v, &pdisp) == S_OK; V_I4(&v)++) { IWebBrowserApp *pwba; if (SUCCEEDED(pdisp->QueryInterface(IID_IWebBrowserApp, (void**)&pwba))) { HWND hwndWBA; if (SUCCEEDED(pwba->get_HWND((LONG_PTR*)&hwndWBA)) && hwndWBA == hwndFind) { fFound = TRUE; IServiceProvider *psp; if (SUCCEEDED(pwba->QueryInterface(IID_IServiceProvider, (void**)&psp))) { IShellBrowser *psb; if (SUCCEEDED(psp->QueryService(SID_STopLevelBrowser, IID_IShellBrowser, (void**)&psb))) { IShellView *psv; if (SUCCEEDED(psb->QueryActiveShellView(&psv))) { IFolderView *pfv; if (SUCCEEDED(psv->QueryInterface(IID_IFolderView, (void**)&pfv))) { IPersistFolder2 *ppf2; if (SUCCEEDED(pfv->GetFolder(IID_IPersistFolder2, (void**)&ppf2))) { LPITEMIDLIST pidlFolder; if (SUCCEEDED(ppf2->GetCurFolder(&pidlFolder))) { if (!SHGetPathFromIDList(pidlFolder, g_szPath)) { lstrcpyn(g_szPath, TEXT("<not a directory>"), MAX_PATH); } int iFocus; if (SUCCEEDED(pfv->GetFocusedItem(&iFocus))) { LPITEMIDLIST pidlItem; if (SUCCEEDED(pfv->Item(iFocus, &pidlItem))) { IShellFolder *psf; if (SUCCEEDED(ppf2->QueryInterface(IID_IShellFolder, (void**)&psf))) { STRRET str; if (SUCCEEDED(psf->GetDisplayNameOf(pidlItem, SHGDN_INFOLDER, &str))) { StrRetToBuf(&str, pidlItem, g_szItem, MAX_PATH); } psf->Release(); } CoTaskMemFree(pidlItem); } } CoTaskMemFree(pidlFolder); } ppf2->Release(); } pfv->Release(); } psv->Release(); } psb->Release(); } psp->Release(); } } pwba->Release(); } pdisp->Release(); } psw->Release(); } InvalidateRect(hwnd, NULL, TRUE); }

blogs.msdn.com/b/oldnewthing/archive/2004/07/20/188696

Да, если что, этот код выдает имя каталога (или файла) выбранного в окне Windows Explorer.