Delphi程序设计基础与上机指导演讲稿第09章

Delphi程序设计基础与上机指导第九章文件和文件系统功能获取逻辑驱动器列表获取逻辑驱动器函数GetDriveType：检查逻辑驱动器状态利用循环体测试所有逻辑驱动器存在的可能性逻辑驱动器的几种状态：DRIVE_REMOVABLEDRIVE_FIXEDDRIVE_REMOTEDRIVE_CDROMDRIVE_RAMDISK获取目录列表获取目录列表查找所有目录FindFirst：开始查找FindNext：查找下一个FindClose：结束查找查找结果判断：(sr.AttrandFileAttrs)=sr.Attr通过循环操作查找所有目录获取逻辑驱动器信息逻辑驱动器的卷标函数GetVolumeInformation这个函数的复杂参数，及其可能返回值逻辑驱动器的其他信息函数DiskFree函数DiskSize函数GetDiskFreeSpace一个实际的实例程序操作目录树操作目录树函数SHFileOperation操作类型：复制FO_COPY操作类型：删除FO_DELETE移动目录＝复制＋删除一个实例程序其他相关系统调用Windows目录和系统目录GetWindowsDirectory获取Windows目录GetSystemDirectory获取系统目录当前目录函数GetCurrentDirectory这些函数的实际应用逻辑驱动器、目录－思考ShellAPI是一个调用系统功能函数的声明单元，代码非常丰富，打开这个单元查看一些重要函数的声明学会利用系统调用文件的版本信息Delphi支持的版本信息打开工程选项对话框打开版本信息，设置版本重新编译，并链接在Windows资源管理器窗口查看应用程序可执行文件的版本信息文件的版本信息提取版本信息函数GetFileVersionInfoSize获得版本信息数据长度函数GetFileVersionInfo获得版本信息数据函数VerQueryValue提取版本信息的具体内容复杂的结构体TVSFixedFileInfo文件的版本信息主要接口一个函数functionGetVersionSetting(inp:String):String;三个属性propertyFileName:StringreadFFileNamewriteSetFileName;propertyVersionStrings:TStringListreadFmyVersionStrings;propertyVersionCategories:TStringListreadFmyVersionCategories;类的完整实现文件的版本信息提取版本信息创建窗口参照实例程序使用类TGetVersionInfoFromFile初始化调用实例程序文件的版本信息通过专门书籍了解类的属性私有成员成员函数使用文件句柄打开和创建文件利用函数FileOpen多种打开模式fmOpenReadfmOpenWritefmOpenReadWritefmShareExclusivefmShareDenyWritefmShareDenyReadfmShareDenyNone使用文件句柄关闭文件FileClose光标定位函数：FileSeek函数：FileSeek（重载）使用文件句柄读取数据函数FileReadFileRead(FFileHandle,Output[0],1024*50-1);写入数据函数FileWriteFileWrite(FFileHandle,PChar(Input)[0],Length(Input));实例程序使用文件句柄－思考有关文件句柄控制文件的方法的进一步学习使用文件变量与文件变量关联关联文件变量是进行文件操作的前提这是Pascal内置的方法函数AssignFile打开文件Reset或者Rewrite方法关闭文件CloseFile方法使用文件变量定位光标函数Seek参数含义获取光标位置函数FilePos使用文件变量读取数据函数ReadRead(FTextFile,Output);写入数据WriteWrite(FTextFile,PChar(Input));使用文件变量－思考参考资料，学习实例程序文件的流操作创建实例使用Create方法FFileStream:=TFileStream.Create(FDefaultFileName2,fmOpenReadWrite);读写文件流读：FFileStream.Read(Output[0],1024*50-1);写：FFileStream.Write(PChar(Input)[0],Length(Input));