BCB6
qry
这个作者很懒,什么都没留下…
展开
-
BCB6 控件对象枚举
for(int i = 0; i ControlCount; i++){ TControl *pctrl = GroupBox1->Controls[i]; int tag = pctrl->Tag; if(pctrl->ClassNameIs("TComboBox"))原创 2012-03-03 21:35:24 · 499 阅读 · 0 评论 -
Base64编解代码
AnsiString DecodeBase64(AnsiString Source) { byte x1,x2,x3,x4,xt; int SrcLen,Times,i; AnsiString Result; Result= " "; SrcLen=Source.Length(); Times=SrcLen /转载 2012-03-04 13:31:04 · 488 阅读 · 0 评论 -
BCB6 使用线程对象
不废话,贴代码1. 线程对象//---------------------------------------------------------------------------#ifndef Unit2H#define Unit2H//-----------------------------------------------------------------------转载 2012-03-04 13:13:50 · 898 阅读 · 1 评论 -
一段调用advapi32.dll中MD5函数的BCB代码
#ifndef TOOL_BOX#define TOOL_BOXextern "C"{/* Data structure for MD5 (Message-Digest) computation */typedef struct { unsigned long i[2]; /* number of _bits_ handled mod 2^64 */ unsigned l转载 2012-03-07 22:01:17 · 1011 阅读 · 0 评论 -
使用BCB6-TValueListEditor控件
TValueListEditor控件可实现类似属性选择窗口的功能。当然相比至下功能还是少了很多,不过很多情况下也够用了。通过重载类函数及控制控件消息响应的方式,打造一个自己满意的控件那不是当下我想做的事。在此记录该控件的简单使用方法1. 添加key->Value对ValueListEditor1->InsertRow("name", "value", true);参数:true ->转载 2012-03-10 14:28:57 · 1358 阅读 · 0 评论 -
BCB 应用TRegistry读取Python目录
AnsiString KeyName, ver, s; KeyName = "\\SOFTWARE\\Python\\PythonCore"; TRegistry *Registry = new TRegistry(KEY_READ); TStringList *ps = new TStringList(); try { Registry->RootKey = HKEY原创 2012-03-19 13:51:11 · 940 阅读 · 0 评论