摘要:
HINSTANCE Hdl; int __stdcall (*ShowPage)();//定义函数原型 AnsiString disExeFile = ExtractFileDir(Application->ExeName)+"\ProjectDLL.dll"; Hdl = ::LoadLibrar 阅读全文
摘要:
if(!sQuery.IsEmpty()) { SQL+="where InsCode='"+sQuery+"'"; } if(!sProvider.IsEmpty()) { if(SQL.Pos("where")!=0) { SQL+=" and Provider='"+sProvider+"'" 阅读全文
摘要:
#include "SvcMgr.hpp" bool StartSQLServer() { SC_HANDLE hManager,hService; TServiceStatus ServiceStatus; bool RetVal; hManager=OpenSCManager(NULL,NULL 阅读全文
摘要:
void PrintAsScreen( TCanvas *CanvasSource,TPrinter *Prntr, TRect RectSource,TRect RectTarget) {//所见即所得打印方式 Prntr->BeginDoc(); int OriginalMapMode = Ge 阅读全文
摘要:
bool __fastcall TForm1::RunCmd( AnsiString cmd,TStringList *stringlist ) { TMemoryStream *memstream=new TMemoryStream(); AnsiString rn="\r\n"; PROCESS 阅读全文
摘要:
//---------------------DM H文件------------------------------------------------------ #ifndef UnitDataModuleH #define UnitDataModuleH //---------------- 阅读全文
摘要:
private: // User declarations void __fastcall RichNewProc1(TMessage& Message); void __fastcall RichNewProc2(TMessage& Message); __fastcall TForm1::TFo 阅读全文
摘要:
#define APPLE 1 #define ORANGE 2 class XFruit { public : virtual void ShowName() = 0; } ; //派生出子类商品 class Apple : public XFruit { public : void ShowNa 阅读全文
摘要:
#include <Registry.hpp> void __fastcall AutoRun(bool pRun) { /**//****************************************************** ** 函数名: AutoRun ** 输入: 是否设置自动 阅读全文
摘要:
#include <registry.hpp> //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Se 阅读全文