关于生成ISO的问题

6108

自由天空新版的PE里都有个“生成ISO.exe”，请问可不可以用批处理实现这个功能？

chiannet

这个程序能生成几种不同引导风格的ISO，内置cdimage、mkisofs，使用经多次稽查，甄别出来的极佳兼容的参数。它必需与sptuppe.exe联袂才能工作。

6108

网上百度后发现去年9月左右发行的五子登科里有“生成iso.cmd”，觉得应该能用批处理实现啊？可惜我批处理仅知皮毛，不会！感觉这个东东挺方便的，修改完后运行下ISO就出来了，那位大侠能整一个出来啊？

chiannet

具体看cdimage、mkisofs的命令行

chiannet

1. 
   
2. 
   
3. procedure CreateMINI;
   
4. var
   
5. p,z,a,b,w:string;
   
6. SysTime: TsystemTime;
   
7. begin
   
8.   p:=ExtractShortPathName(ExtractFilePath(Application.ExeName))+'SKYPETEMP\';
   
9.   z:='Sky123_Mini_PE';
   
10.   a:=p+'..\'+z+'.iso';
    
11.   if fileexists(a+'.bak') then begin SetfileAttr (a+'.bak',128); deletefile(a+'.bak'); end;
    
12.   if fileexists(a) then
    
13.    if not movefile(a,a+'.bak') then
    
14.      begin
    
15.        showmessage(a+'正被使用中！');
    
16.        Application.Terminate;
    
17.        exit;
    
18.      end;
    
19.     a:=p+'..\MYCD\AXPE\';
    
20.     if fileexists(a+'grldr') then begin
    
21.     zipFile(a+'grldr',a+'GRLDR.SKY');
    
22.     movefile(a+'grldr',P);
    
23.     unzipStream('cdimage',p+'CDIMAGE.EXE');
    
24.     unzipStream('miniz',p+'b.bif');
    
25.     GetSystemTime(SysTime);
    
26.     if SysTime.wMonth<10 then a:='0'+IntToStr(SysTime.wMonth) else a:=IntToStr(SysTime.wMonth);
    
27.     if SysTime.wday<10 then b:='0'+IntToStr(SysTime.wday) else b:=IntToStr(SysTime.wday);
    
28.     a:=a+'/'+b+'/'+IntToStr(SysTime.wyear) +',';
    
29.     if SysTime.whour<10 then b:='0'+IntToStr(SysTime.whour) else b:=IntToStr(SysTime.whour);
    
30.     a:=a+b+':';
    
31.     if SysTime.wminute<10 then b:='0'+IntToStr(SysTime.wminute) else b:=IntToStr(SysTime.wminute);
    
32.     a:=a+b+':';
    
33.     if SysTime.wsecond<10 then b:='0'+IntToStr(SysTime.wsecond) else b:=IntToStr(SysTime.wsecond);
    
34.     w:=' -t'+a+b+' -g ';
    
35.     a:= '"'+p;
    
36.     b:=a+'cdimage.exe" -l"'+z+'" -h -n -m -o -d'+w+'-c -b'+a+'b.bif" -o "'+p+'..\mycd" "'+z+'.ISO"';
    
37.     a:=p+'..\mycd\';
    
38.     movefile(a+'AXPE\BOOTMGR',p);
    
39.     movefile(a+'AXPE\BCD',p);
    
40.     movefile(a+'AXPE\HDD',p);
    
41.     WinExecAndWait32(b,1);
    
42.     if fileexists(p+'BOOTFIX.BIN') then moveFile(p+'BOOTFIX.BIN',a+'AXPE\');
    
43.     movefile(p+'BOOTMGR',a+'AXPE\');
    
44.     movefile(p+'BCD',a+'AXPE\');
    
45.     movefile(p+'HDD',a+'AXPE\');
    
46.     movefile(p+'grldr',a+'AXPE\');
    
47.     if fileexists(a+'AXPE\GRLDR.SKY') then deletefile(a+'AXPE\GRLDR.SKY');
    
48.     if Directoryexists(p) then winExec(pchar('cmd /c RD /S /Q "'+p+'"'), SW_HIDE);
    
49.     end else if lg963 then showmessage('未发现 '+ExtractFilePath(Application.ExeName)+'MYCD\AXPE\GRLDR！') else
    
50.        showmessage(ExtractFilePath(Application.ExeName)+'MYCD\AXPE\GRLDR is missing！');
    
51. end;
    

复制代码

以上是创建ntldr引导格式的ISO时的过程,当中又调用了下面一些函数或过程.
zipFile(...);
movefile(...);
unzipStream(...)
GetSystemTime(...)

6108

有点儿像是Delphi 函数？好多判断等，晕了