2016年2月25日
BCB 调用DLL
摘要： HINSTANCE Hdl; int __stdcall (*ShowPage)();//定义函数原型 AnsiString disExeFile = ExtractFileDir(Application->ExeName)+"\ProjectDLL.dll"; Hdl = ::LoadLibrar 阅读全文
posted @ 2016-02-25 15:59 風行 阅读(700) 评论(0) 推荐(0)
SQL组句方法
摘要： if(!sQuery.IsEmpty()) { SQL+="where InsCode='"+sQuery+"'"; } if(!sProvider.IsEmpty()) { if(SQL.Pos("where")!=0) { SQL+=" and Provider='"+sProvider+"'" 阅读全文
posted @ 2016-02-25 15:58 風行 阅读(178) 评论(0) 推荐(0)
BCB 进行服务管理
摘要： #include "SvcMgr.hpp" bool StartSQLServer() { SC_HANDLE hManager,hService; TServiceStatus ServiceStatus; bool RetVal; hManager=OpenSCManager(NULL,NULL 阅读全文
posted @ 2016-02-25 15:58 風行 阅读(294) 评论(0) 推荐(0)
BCB 打印Panel代码
摘要： void PrintAsScreen( TCanvas *CanvasSource,TPrinter *Prntr, TRect RectSource,TRect RectTarget) {//所见即所得打印方式 Prntr->BeginDoc(); int OriginalMapMode = Ge 阅读全文
posted @ 2016-02-25 15:57 風行 阅读(735) 评论(0) 推荐(0)
BCB使用管道
摘要： bool __fastcall TForm1::RunCmd( AnsiString cmd,TStringList *stringlist ) { TMemoryStream *memstream=new TMemoryStream(); AnsiString rn="\r\n"; PROCESS 阅读全文
posted @ 2016-02-25 15:56 風行 阅读(559) 评论(0) 推荐(0)
数据库封装类（坤）
摘要： //---------------------DM H文件------------------------------------------------------ #ifndef UnitDataModuleH #define UnitDataModuleH //---------------- 阅读全文
posted @ 2016-02-25 15:55 風行 阅读(337) 评论(0) 推荐(0)
BCB接管消息循环
摘要： private: // User declarations void __fastcall RichNewProc1(TMessage& Message); void __fastcall RichNewProc2(TMessage& Message); __fastcall TForm1::TFo 阅读全文
posted @ 2016-02-25 15:54 風行 阅读(278) 评论(0) 推荐(0)
C++设计模式之工厂模式
摘要： #define APPLE 1 #define ORANGE 2 class XFruit { public : virtual void ShowName() = 0; } ; //派生出子类商品 class Apple : public XFruit { public : void ShowNa 阅读全文
posted @ 2016-02-25 15:54 風行 阅读(213) 评论(0) 推荐(0)
BCB自启动程序实现
摘要： #include <Registry.hpp> void __fastcall AutoRun(bool pRun) { /**//****************************************************** ** 函数名: AutoRun ** 输入: 是否设置自动 阅读全文
posted @ 2016-02-25 15:53 風行 阅读(425) 评论(0) 推荐(0)
BCB 操作注册表
摘要： #include <registry.hpp> //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Se 阅读全文
posted @ 2016-02-25 15:52 風行 阅读(688) 评论(0) 推荐(0)