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 内存管理1

embarcadero开源项目赞助

Delphi 获取cpu占用时间

Delphi hex --> string

Delphi从字符串中取出数字

Delphi toscilloscope 仿windows任务管理器cpu使用记录组件

Delphi 如何读取文件头 判断文件类型

Delphi pagecontrol当前页可视

Delphi 切换大小写的例子

Delphi中webbrowser自动登录路由器网页

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

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