缘中人-优快云博客

原创判断IDE运行 DebugHook

调试时DebugHook脱离ide运行

2014-07-27 19:15:52 1834

原创 PostBuildEvent

PostBuildEvent

2014-07-24 16:06:47 1968

原创 c++builder XE6 添加属性方法

c++builder XE6 添加属性方法c++builder6

2014-07-16 20:25:02 1843

原创 WIN7 32 联想针式打印机联想DP600+ 文字不全

1、发票直接打印汉字缺胳膊少腿2、

2014-07-16 15:49:43 2001

原创程序图标不显示在任务栏上

程序图标不显示在任务栏上int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int){ try { Application->Initialize(); Application->MainFormOnTaskBar = false; Application->CreateForm(__classid(TForm12), &F

2014-07-11 22:27:13 4854 1

原创 XE6 跨进程获取SysListView32

XE6 跨进程获取SysListView32bool GetListViewText(HWND hWnd, TStringList *list){ int vColumnCount; int vItemCount; int i, j; wchar_t vBuffer[255]; DWORD vProcessId; HANDLE vProcess; LPVOID vPoi

2014-07-11 09:08:38 2189 1

转载跨进程获取 syslistview32 内容

http://bbs.youkuaiyun.com/topics/100073407(*//标题:获取其他进程中ListView的文本说明:Window2000+Delphi6调试通过设计:Zswang支持:wjhu111@21cn.com日期:2004-03-25 //*) uses CommCtrl; function ListViewColumnCount(mHandle:

2014-07-10 16:00:13 8240

原创 android 安卓开发第一节

1、调用照相机新建按钮，放个action，添加ActionTakePhotoFromCamera并关联竟然Ok了

2014-07-09 10:13:34 1255

原创获取屏幕分辨率屏幕大小

// 显示屏幕的大小，不包括任务栏等区域 ListBox1->Items->Add(GetSystemMetrics(SM_CXFULLSCREEN)); // 1920 ListBox1->Items->Add(GetSystemMetrics(SM_CYFULLSCREEN)); // 1018 // 真正屏幕的大小，即实际的大小 //1080 ListBox1->Items-

2014-07-04 13:50:55 1632

原创 XE Style 样式

XE6下设置样式文件 TStyleManager::Initialize(); TStyleManager::LoadFromFile("myStyle.vsf"); TStyleManager::SetStyle("mystyle");在

2014-07-01 11:53:20 2212 1

原创自定义类析构函数 Virtual function

[bcc32 Error] .h(20): E2113 Virtual function '~TDataAccess::TDataAccess()' conflicts with base class 'TObject'

2014-06-27 14:48:25 1115

原创 CheckBox 屏蔽空格按键

checkbox控件，只允许鼠标单击，想进制按空格键切换

2014-06-26 09:30:19 2357

原创 __classmethod

__classmethod__classmethod

2014-06-23 17:56:27 657

原创数组元素个数 ARRAYSIZE

ARRAYSIZE

2014-06-19 18:39:35 1794

原创 DockTabSet 再探停靠

LeftDockTabSet LeftDockPanelTSplitter

2014-06-18 14:25:13 1366

原创 XE6 GroupBox的Caption颜色

XE环境里，GroupBox的Caption颜色改变无效，设计器，代码设置都无效

2014-06-17 11:45:26 2692

原创 XE6打开XE5工程 false is not a valid integer value

'False' is not a valid integer value

2014-06-05 15:00:49 2731

原创伟大的ghost 伟大的Symantec

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

2014-05-31 07:57:36 737

原创 TNativeXml 新版本读取

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

2014-05-29 16:02:04 1198

转载 IE 11 安装失败

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

2014-05-28 14:44:38 1202

原创古董内存条

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

2014-05-26 16:54:33 805

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

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

2014-05-22 17:21:02 1019

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

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

2014-05-21 12:03:47 1219

原创 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 2808

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

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

2014-05-20 14:51:23 733

原创自定义调试查看器分析 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 775

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

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

2014-05-15 19:00:44 913

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

Tenpay Certificate Service

2014-05-15 15:36:31 4568

原创控件指针与数字

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

2014-05-14 13:17:15 897

转载 TStopwatch 高精度秒表计时器

delphi TStopwatch 高精度秒表计时器

2014-05-13 18:44:48 2204

原创 Debugger DataSet 调试时查看DataSet

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

2014-05-13 15:37:09 3351

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

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

2014-05-12 09:48:09 3891 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 767

原创 TFrame

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

2014-05-09 23:21:25 1208

原创 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 1522

原创 __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 841

原创 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 1883

原创智能指针

#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 517

转载 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 1472