- 博客(371)
- 资源 (23)
- 收藏
- 关注
原创 程序图标不显示在任务栏上
程序图标不显示在任务栏上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
原创 XE6打开XE5工程 false is not a valid integer value
'False' is not a valid integer value
2014-06-05 15:00:49 2704
原创 TNativeXml 新版本 读取
xml = new TNativeXml(this); xml->ExternalEncoding = seUTF8; xml->XmlFormat = xfReadable; xml->LoadFromFile("test.XML");
2014-05-29 16:02:04 1187
转载 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
原创 控件指针 与数字
Edit1->Text = (int)(void*)cds1; DataSource1->DataSet = (TDataSet*)(void*) Edit1->Text.ToInt();
2014-05-14 13:17:15 890
原创 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
原创 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
delphi IOS lifecycle 生命周期 后台
2016-01-08
Microsoft OLE DB Provider for Visual FoxPro 9.0
2015-07-14
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人