自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

ksrsoft的专栏

C++Builder Delphi

  • 博客(371)
  • 资源 (23)
  • 收藏
  • 关注

原创 判断IDE运行 DebugHook

调试时DebugHook脱离ide运行

2014-07-27 19:15:52 1817 1

原创 PostBuildEvent

PostBuildEvent

2014-07-24 16:06:47 1930

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

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

2014-07-16 20:25:02 1828

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

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

2014-07-16 15:49:43 1974

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

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

2014-07-11 22:27:13 4834 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 2157 1

转载 跨进程 获取 syslistview32 内容

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

2014-07-10 16:00:13 8179

原创 android 安卓 开发第一节

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

2014-07-09 10:13:34 1239

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

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

2014-07-04 13:50:55 1596

原创 XE Style 样式

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

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

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

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

2014-06-27 14:48:25 1095

原创 CheckBox 屏蔽空格按键

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

2014-06-26 09:30:19 2334

原创 __classmethod

__classmethod__classmethod

2014-06-23 17:56:27 644

原创 数组元素个数 ARRAYSIZE

ARRAYSIZE

2014-06-19 18:39:35 1775

原创 DockTabSet 再探 停靠

LeftDockTabSet  LeftDockPanelTSplitter

2014-06-18 14:25:13 1335

原创 XE6 GroupBox的Caption颜色

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

2014-06-17 11:45:26 2672

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

'False' is not a valid integer value

2014-06-05 15:00:49 2704

原创 伟大的ghost 伟大的Symantec

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

2014-05-31 07:57:36 725

原创 TNativeXml 新版本 读取

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

2014-05-29 16:02:04 1187

转载 IE 11 安装失败

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

2014-05-28 14:44:38 1172

原创 古董内存条

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

2014-05-26 16:54:33 785

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

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

2014-05-22 17:21:02 992

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

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

2014-05-21 12:03:47 1205

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

原创 自定义调试查看器分析 StringList(三)

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

2014-05-20 14:51:23 727

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

原创 自定义调试查看器分析 DateTimeVisualizer(一)

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

2014-05-15 19:00:44 896

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

Tenpay Certificate Service

2014-05-15 15:36:31 4520

原创 控件指针 与数字

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

2014-05-14 13:17:15 890

转载 TStopwatch 高精度秒表 计时器

delphi  TStopwatch 高精度秒表 计时器

2014-05-13 18:44:48 2182

原创 Debugger DataSet 调试时查看DataSet

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

2014-05-13 15:37:09 3320

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

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

2014-05-12 09:48:09 3824 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 758

原创 TFrame

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

2014-05-09 23:21:25 1186

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

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

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

原创 智能指针

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

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

原创 XE5 xml

TXMLDocument *XMLDocument1; _di_IXMLNode xdeRoot; _di_IXMLNode xdeChild;

2014-05-09 17:33:33 1009

PBCOMRT115.DLL

PBCOMRT115.DLL 找了一上午才找到

2021-01-11

力特 USB转串口驱动 型号 ZE551A

力特 USB转串口驱动 型号 ZE551A,支持win10很棒,直接安装使用。

2018-05-06

PL-2303 Vista Driver Installer

PL-2303 Vista Driver Installer,解决win7操作系统的 代码10错误

2018-05-01

最新封装delphi DataSetToJSON单元函数 Tokyo 10.2.2

最新封装delphi DataSetToJSON单元函数 Tokyo 10.2.2.

2018-04-03

DLL 函数查看器KT版

查看DLL导出函数,可搜索,可排序。自己用到才编写的,方便大家使用。

2017-04-02

delphi 文件浏览器

delphi 文件浏览器

2016-11-21

dfm viewer delphi for Berlin

delphi dfm viewer for xe8 berlin,2016

2016-09-05

64位System.Data.SQLite.dll

64位System.Data.SQLite.dll

2016-06-12

DesignIntf.dcu

c++Builder 6.0 DesignIntf.dcu designeditors.dcu Proxies.dcu

2016-05-26

c# AES加密

经过测试与java、网页工具、delphi加密结果相同!

2016-02-19

delphi IOS lifecycle 生命周期 后台

delphi IOS lifecycle 生命周期 后台 http://blogs.embarcadero.com/pawelglowacki/2013/09/30/40067

2016-01-08

delphi IOS 音乐播放器

delphi 音乐播放器, IOS锁屏后可以继续播放!

2015-12-26

Delphi 蓝牙 HeartRateMonitor

Delphi 蓝牙 HeartRateMonitor

2015-12-11

Delphi 蓝牙 ExploreDevicesLE

Delphi 蓝牙 ExploreDevicesLE

2015-12-11

Delphi 蓝牙 ClBluetooth

Delphi 蓝牙 ClBluetooth

2015-12-11

Delphi 蓝牙 BLEScanner

Delphi 蓝牙 BLEScanner

2015-12-11

侧边栏菜单

侧边栏菜单 TCategoryButtons+TSplitView

2015-11-26

libmySQL.dll

mysql clientt dll libmySQL.dll

2015-08-10

delphi encrypt

delphi encrypt 3des aes base64 md5 des rsa sha only for delphi7

2015-07-29

Microsoft OLE DB Provider for Visual FoxPro 9.0

Microsoft OLE DB Provider for Visual FoxPro 9.0

2015-07-14

BDE win7 64

BDE win7 64 bde setup ok

2015-07-11

俄罗斯方块 描准线

俄罗斯方块 描准线,得分算法修改了,一次消的多,得分就高

2013-07-31

XE4 俄罗斯方块游戏

修改的XE4 c++builder的Samples俄罗斯方块游戏

2013-07-30

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除