delphi 实现打开文件定位 可以实现文件打开后定位到那个文件而且不执行它. 代码： 用shellExecute 打开一个文件夹，那如何打开一个文件夹并选中指定的文件呢。 下面一个函数就可以就可...
http://www.freedelphitips.com/the-status-bar-on-the-release-of-multiple-processes.html Delphi 中TStatusbar上通常不允许放其它组件。但是经常有需求要在右下角的状态栏上放置进程条以达到更好的显示效果，...
program Arp; {$APPTYPE CONSOLE} uses windows,IpHlpApi, IpTypes, Packet32,WinSock,math; const MAC_SIZE = 6; type MACADDRESS = array[0 .. MAC_SIZE - 1] of UCHAR; type ETHERNET_HDR = packed record Destination: MACADDRESS; Source: MACADDRESS; P...
汉字与区位码(1) - 转换函数 先上转换函数: -------------------------------------------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,...
在学习 资源文件 和 钩子函数 时, 经常用到当前模块句柄(HInstance)这个全局变量. 今天特别想知道, 它到底是在什么时候给赋值的. 输入 HInstance; "Ctrl+鼠标" 找到它的声明之处: SysInit 单元...
动态数组的使用 //例1: var StrArr: array of String; //动态数组定义时不与维数 begin SetLength(StrArr,6); //分配6个元素位置: 0-5 StrArr[0] := '万一'; //动态数组的下界是 0 ShowMessage(StrArr[0]); //分配空间...
非常遗憾 Delphi 的 case 语句不支持字符串, 但我觉得这也可能是基于效率的考量; 如果非要在 case 中使用字符串, 也不是不可以变通, 这里提供了五种方法. 本例效果图: 代码文件: --------...
with…do语句的用法 with…do语句用来指定一个块中的字段（记录的或者对象的）、属性和方法所属的记录或者对象。Delphi初学者可能已经习惯了如下的代码书写格式： var Button: TButton; b...
这两天用webbrower写东西，有时候打开SSL加密网站时会出现”Invalid floating point operation.”的错误，上网搜了下，把解决方法贴上。 导致原因 在Delphi2011中需要通过浮点单位控制指令设置浮...
这段时间在用DELPHI做一个财务系统时发现每一行的小计取了两位小数后与用SQL的ROUND查询出来的不一样，在程序中是用FormatFloat('0.00',ItemSum)函数来取值的，再用DXDBGRID网格显视合计，最终...