2014年05月_缘中人

07月 06月 05月 04月 03月 02月 01月

原创伟大的ghost 伟大的Symantec

ghost给安装系统带来的革命性的变革ghost

2014-05-31 07:57:36 709

原创 TNativeXml 新版本读取

xml = new TNativeXml(this); xml->ExternalEncoding = seUTF8; xml->XmlFormat = xfReadable; xml->LoadFromFile("test.XML");

2014-05-29 16:02:04 1171

转载 IE 11 安装失败

http://support.microsoft.com/kb/2872074

2014-05-28 14:44:38 1153

原创古董内存条

我家有台电脑，大概是2002年左右配的，

2014-05-26 16:54:33 766

转载 Delphi中停靠技术的实现[转]

先让我们来复习一下VCL的结构，在TWinControl类中有一个DockSite属性(boolean),他的作用是是否允许别的控件停靠在他的上面，在TControl类中有一个DragKind属性，如果要这个控件能停靠在别的控件上，就把DragKind属性设成dkDock。就这么简单，只要设置一下属性，一个支持停靠的程式就完成了。当然，上面说的只是最最基本的步骤

2014-05-22 17:21:02 976

原创 XMLDocument 最简单的读取xml例子

XMLDocument1->LoadFromFile("aaa.xml");XMLDocument1->Active = true;Caption = XMLDocument1->DocumentElement->ChildNodes->FindNode("")->ChildNodes->FindNode("sn1")->Text;

2014-05-21 12:03:47 1190

原创 ReadProcessMemory 输入进程ID 输入读取地址

procedure TForm6.Button1Click(Sender: TObject);var Ghwnd: HWND; ProcID: Cardinal; Process: THandle; lpBaseAddress: Pointer; nSize: SIZE_T; lpNumberOfBytesRead: SIZE_T;// lpBuffer: arra

2014-05-20 19:08:53 2775

原创自定义调试查看器分析 StringList（三）

系统自带的D:\Program Files (x86)\Embarcadero\Studio\14.0\source\Visualizers

2014-05-20 14:51:23 719

原创自定义调试查看器分析 StdStringVisualizer（二）

StdStringVisualizerTypes: array[0..3] of string = ( 'std::basic_string, std::allocator >', 'std::basic_string, std::allocator >', 'std::string', 'std::wstring' );

2014-05-15 23:57:29 758

原创自定义调试查看器分析 DateTimeVisualizer（一）

TDateTime& __fastcall operator =(const TDateTime& rhs) {Val = rhs.Val; return *this;}

2014-05-15 19:00:44 880

转载腾讯财付通充值数字证书控件未能正常工作

Tenpay Certificate Service

2014-05-15 15:36:31 4487

原创控件指针与数字

Edit1->Text = (int)(void*)cds1; DataSource1->DataSet = (TDataSet*)(void*) Edit1->Text.ToInt();

2014-05-14 13:17:15 882

转载 TStopwatch 高精度秒表计时器

delphi TStopwatch 高精度秒表计时器

2014-05-13 18:44:48 2160

原创 Debugger DataSet 调试时查看DataSet

http://edn.embarcadero.com/article/40268Delphi 2010 Feature Highlight - Debugger Visualizers

2014-05-13 15:37:09 3299

原创无意中发现 c++builder 代码提示慢的秘密

在cpp文件中包含有vcl头文件，如果文件中不用#include #pragma hdrstop

2014-05-12 09:48:09 3781 1

原创 TCpie from TGraphicControl

h file#ifndef UnitPieH#define UnitPieH#include #include #include #include #include #include //---------------------------------------------------------------------------class TCpie :public

2014-05-12 00:02:35 747

原创 TFrame

TFrame 框架减少界面重画，代码重写，是非常好用的框架oop

2014-05-09 23:21:25 1166

原创 xe5中 TRect 类增强

TRect = record private function GetWidth: Integer; procedure SetWidth(const Value: Integer); function GetHeight: Integer; procedure SetHeight(const Value: Integer); function GetS

2014-05-09 22:20:03 1453

原创 __delphirtti System::Typinfo::GetEnumName

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){ PTypeInfo info; info = __delphirtti(TWindowState); Caption = AnsiString(info->Name); String kindName; kindNa

2014-05-09 22:11:14 799

原创 xe5 新的任务栏提示气泡提示 TrayIcon

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){ TrayIcon1->ShowBalloonHint(); TrayIcon1->Animate = true; TrayIcon1->BalloonFlags = bfInfo; TrayIcon1->BalloonHint = "

2014-05-09 21:57:18 1848

原创智能指针

#include //For STL auto_ptr class __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){ int Index; std::auto_ptrTStringList> MyList(new TStringList()); MyList->Add(L"Animalsૐ૧

2014-05-09 21:27:56 502

转载 TStringsEncoding TEncoding

TStringsEncoding (Delphi)Language:DelphiVersions:XEDescriptionThis example requires a TMemo control, two buttons and two textfields on the form. It demonstrates the new TStrings.En

2014-05-09 21:10:59 1429

原创 XE5 xml

TXMLDocument *XMLDocument1; _di_IXMLNode xdeRoot; _di_IXMLNode xdeChild;

2014-05-09 17:33:33 998

原创 dxgrid cxGrid使用

cxGrid1DBTableView1->DataController->Groups->FullExpand();cxGrid1DBTableView1->DataController->IsEOF() cxGrid1DBTableView1->Controller->FocusedRow->IsLastcxGrid1->FocusedField->FullNam

2014-05-09 15:10:46 951

转载 RAD XE6 new code example

xe6 newhttp://docwiki.embarcadero.com/CodeExamples/XE6/en/Category:XE6http://docwiki.embarcadero.com/CodeExamples/XE6/en/Main_Page

2014-05-08 21:55:32 933

原创空字符串 EmptyStr

xe new feater String sa; if (sa == EmptyStr) ShowMessage("empt");

2014-05-08 19:20:05 1771

原创 cxGrid 分组展开加号

1.、先放一个cxGrid，设置好View，设置View.DataController连接的DataSource2.激活DataSource连接的DataSet，双击cxGrid，点击Retrieve Fields，取得所有的Column3.设置View的OptionsView.Footer=True，OptionsView.GroupFooters=True，这是为了把分组小计和总计面板

2014-05-08 10:34:23 4398

转载 TDockTabSet 实现停靠

http://edn.embarcadero.com/article/33446

2014-05-07 21:50:27 2119

原创 TButtonGroup

http://docwiki.embarcadero.com/CodeExamples/XE2/en/VCLButtons%28Delphi%29TButtonGroup

2014-05-07 21:48:13 1160

原创 TCategoryButtons

http://www.functionx.com/delphi/controls/categorybuttons.htmhttp://blog.csdn.net/akof1314/article/details/6948797

2014-05-07 21:41:08 1320

转载 TGridPanel TFlowPanel

http://edn.embarcadero.com/article/33421

2014-05-07 21:16:48 3214

原创安装包制作工具

InstallAware Developer

2014-05-07 20:43:39 689

原创 TButtonedEdit

设置ButtonedEdit的Images属性，可实现三态按钮效果，不过不是...

2014-05-07 20:33:59 941

原创 TGridPanel

TGridPanel

2014-05-07 19:51:49 1402

原创 dxDBGrid 何去何从升级

https://www.devexpress.com/Support/Center/Question/Details/Q449255Delphi 5 to XE3TdxGrid is an old component. Now TcxGrid is used instead of TdxDBGrid. Please refer to the "TcxGrid Object"

2014-05-07 16:46:19 1198