2011年9月13日

Fillchar

摘要： Fillchar是Turbo/Borland Pascal的System单元的一个标准过程，它的使用格式是：FillChar(var X; Count: Word; value)，它的功能是，把指定变量X在内存段中所占的低Count个字节赋为相同的值value， 其中value是填充的值，只能是Byte、Char或Boolean等单字节类型的值。在Free Pascal中稍加扩展为FillChar(var X; Count: Longint; value), 功能没变。 [例1]：Fillchar通常用来给数据赋初值。 var a:array [1..10] of arrtype; 执行fil 阅读全文

posted @ 2011-09-13 15:26 delphi初学者 阅读(593) 评论(0) 推荐(0) 编辑

WinAPI: GetDiskFreeSpaceEx - 获取磁盘容量信息

摘要： WinAPI: GetDiskFreeSpaceEx - 获取磁盘容量信息 //声明:GetDiskFreeSpaceEx( lpDirectoryName: PChar; {磁盘根路径} var lpFreeBytesAvailableToCaller: TLargeInteger; {可用空间} var lpTotalNumberOfBytes: TLargeInteger; {总空间} TotalFree: PLargeInteger {剩余空间}): BOOL;--------------------------------------------------------------- 阅读全文

posted @ 2011-09-13 09:31 delphi初学者 阅读(854) 评论(0) 推荐(0) 编辑

GetVolumeInformation

摘要： GetVolumeInformation函数来获取硬盘的序列号函数声明： BOOL GetVolumeInformation( LPCTSTR lpRootPathName, // 与获取信息卷的根路径 LPTSTR lpVolumeNameBuffer, // 用于装在卷名的一个字符串 DWORD nVolumeNameSize, // 字符串的长度 LPDWORD lpVolumeSerialNumber, // 用于装载磁盘卷序列号的变量 LPDWORD lpMaximumComponentLength, // 指定一个变量，用于装载文件名每一部分的长度 LPDWORD lp... 阅读全文

posted @ 2011-09-13 09:15 delphi初学者 阅读(1867) 评论(0) 推荐(0) 编辑

导航