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 数字签名添加器源码

Delphi 判断网站文件是否存在

Delphi制作移动文字、图片

Delphi 泛型 tdictionary<string,string>

怎样在Delphi中屏蔽flash控件的右键弹出菜单

Delphi 打开网页的两种方法

Delphi读写firebird二进制数据

idtcpclient和idtcpclient 主要属性和方法

Delphi 当前日期的加减运算

Delphi关闭程序close,application.terminate与halt区别

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

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