笔下有余

摘要： void __fastcall TForm1::tmr1Timer(TObject *Sender){ HWND a,b; a=FindWindow("TXGuiFoundation","QQ2009"); b=FindWindowEx(a,0,"ATL:30A410F8",NULL); if(!b==NULL) { SendMessage(b,WM_SETFOCUS,0,0); ShowWind... 阅读全文

摘要： API的英文全称(Application Programming Interface)，WIN32 API也就是MicrosoftWindows 32位平台的应用程序编程接口。自己写点经常用的一些函数。//打开网页ShellExecute(NULL,NULL,"http://www.cnblogs.com/missu", NULL,NULL,SW_SHOW);//打开文件ShellExecute(... 阅读全文

摘要： //在Form的OnCreate事件中注册 WM_TASKBARCREATED 消息，并在托盘区添加图标 WM_TASKBARCREATED=RegisterWindowMessage("TaskbarCreated"); lIconMessage=RegisterWindowMessage("IconNotify");//添加图标void TForm2::AddTrayIcon(){ NOTIF... 阅读全文

摘要： ScrWidth=GetSystemMetrics(SM_CXSCREEN); ScrHeight=GetSystemMetrics(SM_CYSCREEN); 阅读全文

摘要： void TForm1::Login(){ CppWebBrowser1->Quit(); IHTMLDocument2 *Htmldoc = NULL ; CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&Htmldoc) ; IHTMLElementCollection *el... 阅读全文

摘要： AnsiString TForm1::WEB2HTMLCode(){ extern AnsiString str_CurrPath; AnsiString strCode; IHTMLDocument2 *HTMLDocument = NULL; if(SUCCEEDED(CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocumen... 阅读全文

摘要： IHTMLDocument2 *spDoc = NULL; bool __stdcall CrnRunJavaScript(IHTMLDocument2 *spDoc, LPSTR lpScript, LPSTR lpLang = "JScript");bool __stdcall CrnRunJavaScript(IHTMLDocument2 *spDoc, LPSTR lpScript, LP... 阅读全文

摘要： void TForm1::ClickURL(AnsiString strURL) //登陆时{Variant disp,alllinks,eachlink;int linkcount;disp = CppWebBrowser1->Document;alllinks = disp.OlePropertyGet("links"); //取得所有的链接linkcount = alllinks.Ol... 阅读全文

摘要： void __fastcall TForm1::CppWebBrowser1NewWindow2(TObject *Sender, LPDISPATCH *ppDisp, VARIANT_BOOL *Cancel){ if (flag==true) { TForm1 *NewWindow = new TForm1(this); NewWindow->Visible=false; * ppDi... 阅读全文

摘要： CppWebBrowser1->Silent=true; //cppwebbrowser网页浏览 silent为true,屏蔽脚本提示错误CppWebBrowser1->Navigate(WideString(strLogin)); //打开网页,进入页面，cb6要加WideString，转换数据类型while(CppWebBrowser1->Busy)//判断网络状态CppWe... 阅读全文

摘要： char * a; a= (ExtractFileDir(Application->ExeName)+"\\project1.exe ")str(); a= (Application->ExeName).c_str(); CopyFile((Application->ExeName).c_str(), "C:\\Windows\\Help\\Project1.exe",true)... 阅读全文

摘要： 1。输入一个数值（10位的十进制数字）2。程序里先把这个数据转为四组十六进制，如A1 A2 A3 A4再把这四组十六制转变为A4 A3 A2 A13。点击转换按钮，即可得到此十六进制A4 A3 A2 A1的十进制结果 <------比如十进制1234567890转为十六进制为49 96 02 D2 把这四组变为D2 02 96 49后，再转为十进制输出即得到十进制数3523384905 --... 阅读全文