摘要： Stream对象，又称流式对象，是TStream、THandleStream、TFileStream、TMemoryStream、TResourceStream和TBlobStream等的统称。它们分别代表了在各种媒介上存储数据的能力，它们将各种数据类型(包括对象和部件)在内存、外存和数据库字段中的管理操作抽象为对象方法，并且充分利用了面向对象技术的优点，应用程序可以相当容易地在各种Stream对象中拷贝数据。 下面介绍各种对象的数据和方法及使用方法。TStream对象 TStream对象是能在各种媒介中存储二进制数据的对象的抽象对象。从TStream 对象继承的对象用于在内存、Wind... 阅读全文

摘要： 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 阅读全文

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

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

摘要： VC声明HANDLE FindFirstFile( LPCTSTR lpFileName, // file name LPWIN32_FIND_DATA lpFindFileData // data buffer );　lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路径名 lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索调用失败 返回为INVALID_HANDLE_VALUE(即-1)typedef struct _WIN32_FIND_DATA { // wfd ... 阅读全文

摘要： unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMainForm = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Label2: TLabel; Edit2: TEdit; Button2: TButton; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; Ope 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Button2: TButton; Edit2: TEdit; Button3: TButton; Edit3: TEdit; Button4: TButton; Edit4: TEdit; Button5: TB 阅读全文

摘要： procedure TForm1.N17Click(Sender: TObject);//读取文件属性 FileGetAttr;var FileName: string; Attr: Integer; //属性值是一个整数begin FileName := 'F:\test\Test.txt'; Attr := FileGetAttr(FileName); ShowMessage(IntToStr(Attr)); //属性可选值(有些用不着): //FILE_ATTRIBUTE_READONLY = 1; 只读 //FILE_ATTRIBUTE_HIDDEN = 2; 隐藏 . 阅读全文

摘要： WinAPI: SetCurrentDirectory、GetCurrentDirectory - 设置与获取当前目录//声明:SetCurrentDirectory( lpPathName: PAnsiChar {路径名}): BOOL;GetCurrentDirectory( nBufferLength: DWORD; {缓冲区大小} lpBuffer: PAnsiChar {缓冲区}): DWORD; {返回目录实际长度}//举例:var buf: array[0..MAX_PATH] of Char;begin SetCurrentDirect... 阅读全文

摘要： 临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别TRtlCriticalSection 是一个结构体，在windows单元中定义； 是InitializeCriticalSection，EnterCriticalSection，LeaveCriticalSection, DeleteCriticalSection 等这几个kernel32.dll中的临界区操作API的参数；TCriticalSection是在SyncObjs单元中实现的类，它对上面的那些临界区操作API函数进行了了封装，简化并方便了在Delphi的使用；如TCrit 阅读全文