TShellWindows
void __fastcall TForm1::Button1Click(TObject *Sender) { TShellWindows *Sh = new TShellWindows(NULL); try { for(int i = 0; i Count; i++) { if(Sh->Item(i) == NULL) continue; Draw(Sh->Item(i)); break; } } __finally { delete Sh; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Draw(IDispatch *Idisp) { IWebBrowser2 *IE = (IWebBrowser2 *)N..
2008.08.19