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关于tjpegimage的使用(bmp\ jpg格式转换）

Delphi richedit控件中插入图片bmp(bmp,文件),gif(文件)

Delphi savelog 方便的记录日志

Delphi和c++指针详解

Delphi调用android振动功能

Delphi 之 热键组件(thotkey)

Delphi datasnap 的连接事件顺序图

Delphi检测网络连接状态

强大的Delphi rtti--兼谈需要了解多种开发语言

Delphi 获取局域网所有ip

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

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