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 風行 阅读(697) 评论(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 風行 阅读(177) 评论(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 風行 阅读(292) 评论(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 風行 阅读(729) 评论(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 風行 阅读(555) 评论(0) 推荐(0)
数据库封装类（坤）
摘要： //---------------------DM H文件------------------------------------------------------ #ifndef UnitDataModuleH #define UnitDataModuleH //---------------- 阅读全文
posted @ 2016-02-25 15:55 風行 阅读(335) 评论(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 風行 阅读(276) 评论(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 風行 阅读(424) 评论(0) 推荐(0)
BCB 遍历指定目录
摘要： void __fastcall TForm1::Button1Click(TObject *Sender) { TStringList *FileList = new TStringList(); SearchDir("c:\WINNT", FileList); Memo1->Lines->Assi 阅读全文
posted @ 2016-02-25 15:52 風行 阅读(562) 评论(0) 推荐(0)