TShellWindows(2)
-
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 -
TShellWindows 인데 FindWindow로 변경했을 떄와 같이 HWND를 받을 수 있도록 찾아보자.
//--------------------------------------------------------------------------- #include #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "shdocvw_ocx" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm..
2008.07.18