摘要：获取文件的图标在win7的文件状态栏中能显示最大256x256的程序应用图标。在XP下测试无法正常获取256的巨型图标Shell提供了一个函数 SHGetFileInfo 可以获取文件信息，在使用此函数有需要处理Icon句柄的释放（DestroyIcon），否则每次会有3个GDI句柄泄漏问题。使用此函数后会一次性产生47个GDI句柄，只要Icon句柄释放，就不会再增长。现在还未找到处理多处理啊的调用所产生的这些GDI句柄。注意： GHGetFileInfo 和 DestoryIcon 成对调用。测试环境 Win7 and XE2View Code unit Unit4;interfaceuse 阅读全文

摘要：1、创建一个Mark图层2、对覆盖区域进行行列扫描（使用背景色，设置透明） PRGB = ^TRGB; TRGB = record b, g, r, a: Byte; end; PRGBArray = ^TRGBArray; TRGBArray = array [0 .. 65565] of TRGB; // use cMask image to remove overlaping rTab area slPtr := Integer(cBmp.ScanLine[y1]); slSize := Integer(cBmp.ScanLine... 阅读全文

摘要：/// {:/// ****************************************************************************/// 模块名称：/// 功能描述：/// /// /// 创建日期：%DateTime%/// 公布接口及说明：////// ┌----------------┬-----┐ /// | chenzw | ^_^ | /// ├----------------┼--┬--┤/// └----------------┴-----┘////// 版权所有 (C) 2012 xxxx软件有限公司/// ***... 阅读全文

摘要：ReportMemoryLeaksOnShutdown := True;能提供基本的内存泄漏信息，不是很详细。 阅读全文

摘要：{$IFDEF VER80} - Delphi 1{$IFDEF VER90} - Delphi 2{$IFDEF VER100} - Delphi 3{$IFDEF VER120} - Delphi 4{$IFDEF VER130} - Delphi 5{$IFDEF VER140} - Delphi 6{$IFDEF VER150} - Delphi 7{$IFDEF VER160} - Delphi 8{$IFDEF VER170} - Delphi 2005{$IFDEF VER180} - Delphi 2006{$IFDEF VER180} - Delphi 2007{$IFD.. 阅读全文

摘要：TestComplete 试用情况1. 印象... 21.1. Delphi支持比较好... 21.2. 帮助说明详尽... 21.2.1. 帮助文档中的功能点或函数都有详尽的说明和参考代码... 21.2.2. 事例程序比较丰富... 21.3. 支持多种测试模型... 22. 功能描述... 32.1. 脚本创建... 32.1.1. 支持多种脚本语言... 32.1.2. 提供对象浏览器... 32.1.3. 代码自动完成功能... 32.1.4. 代码模板... 42.1.5. 代码调试... 42.1.6. 使用情况... 42.2. Delphi接入TC. 42.3. 白盒测试 ( 阅读全文

摘要：相关方法1这样调用一次，会刷屏闪烁一次。任务栏会刷一下。相关方法2如果只是为了不显示主窗体你还可以在formCreate事件里面把窗体设置为w=0,h=0，或者设置成完全透明的窗体也行调用一次，还是会闪一下，是因为界面失去焦点。任务栏会刷一下。 阅读全文

摘要：在记录结构定义中，因把需要进行值相同比较的类型定义在连续的范围内。对后续的处理会比较方便。如：格式块版本定义这种情况下比较版本类型是否相同就比较讨厌，需要跨过 Len 定义。按同类型值定义在一起的情况比较函数就会简单很多 阅读全文

摘要：JCLhttps://jcl.svn.sourceforge.net/svnroot/jclvirtual-treeview官站：http://www.soft-gems.netSVN：http://virtual-treeview.googlecode.com/svn/trunk/# Non-members may check out a read-only working copy anony... 阅读全文

摘要：Serial port (RS232) and barcode scan features Direct access to serial port and I/O operations Ready solution for Barcode scanner device Find all available serial ports in the system (native and vir... 阅读全文

摘要：BergSoftware出品的VCL组件包，包括了表格组件Next Grid，支持数据库的表格组件Next DBGrid，对象检查组件Next Inspector，电子表格组件Next Sheet等等 BergSofrware 官网地址：http://www.bergsoft.net 编译的Exe文件尺寸不到500K。虽然很小，但是功能很全，界面整洁。下面是Demo 的截图 阅读全文

摘要：测试创建和打开文件映射的时候老是得到"句柄无效"的错误, 仔细看了MSDN以后才发觉是函数认识不透, 这里把相关的解释翻译出来 HANDLE CreateFileMapping(   HANDLE hFile, //物理文件句柄   LPSECURITY_ATTRIBUTES lpAttributes, //安全设置   DWORD flProtect, //保护设置   DWORD dwMaximumSizeHigh, //高位文件大小   DWORD dwMaximumSizeLow, //低位文件大小   LPCTSTR lpName //共享内存名称 ); 阅读全文

摘要：Returns the quoted version of a string.UnitSysUtilsCategoryString handling routinesDelphi syntax:function QuotedStr(const S: string): string;DescriptionUse QuotedStr to convert the string S to a quote... 阅读全文

摘要：获取文件的版本信息方法 --------------------------- GetFileVersionInfo(Pchar(ParamStr(0)), 0, VerInfoSize, VersionInfo); //得到文件的版本资源 VerQueryValue(VersionInfo, '""VarFileInfo""Translation', Translation, VersionInfoSize); VersionValue := '""StringFileInfo""' + IntToHex(LoWord(LongInt(Translation^)), 4) + IntToHex(HiWord(LongInt(Translation^)), 4) + '""'; VerQueryValue(VersionInfo, PChar(VersionValue + 'FileVersion'), InfoPointer, VersionInfoSize); AVer := string(PCh 阅读全文