Delphi 判断ISO文件，ISO文件头， ISO FileHead

本文整理自网络，侵删。

 
type
TISOFileHead = record
iFlagBegin: Byte;
Name: array[0..4]of Char;
iFlagEnd : Byte;
DataEnd : Byte;
sSystemName : array[0..31]of Char;
sVolumnName: array[0..31]of Char;
end;
function IsISOFile(sFileName:string):BOOL;
var
FileStream: TFileStream;
ISOFileHead: TISOFileHead;
begin
Result := False;
try
if not FileExists(sFileName) then Exit;
//ISO光盘镜像文件从$8000位置开始 数据为 01 43 44 30 30 31 01 // .CD001.
FileStream:=TFileStream.Create(sFileName, fmOpenRead or fmShareDenyNone);
try
if FileStream.Size<$8000 then Exit;
FileStream.Position:=$8000;
if FileStream.Read(ISOFileHead, SizeOf(TISOFileHead))>0 then
begin
Result := (ISOFileHead.iFlagBegin = 01) and
  (string(ISOFileHead.Name)= 'CD001') and  //这里不同版本的标准可能有所不同，但这个应该是最通用的，其他版本没去看是什么
(ISOFileHead.iFlagEnd = 01 ) and
(ISOFileHead.DataEnd = 0);
end;
finally
FileStream.Destroy;
end;
except
end;
end;

 
 

相关阅读 >>

Delphi 计算l两个日期的时间间隔月数，月数差

Delphi 创建进程时指定其父进程

Delphi获得硬盘所有分区

Delphi 获取系统mydocuments文件夹路径

Delphi中三种延时方法

orangeui作者开源作品

Delphi 网上获取北京时间idhttpserver and idhttp 使用 encoding utf8

Delphi提取字符串

Delphi整理四（程序控制结构）

Delphi 生成xml 方法 与 Delphi txt文件操作

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 判断ISO文件，ISO文件头， ISO FileHead