ISO文件生成工具(ISOMaker)

上次寫了個CD/DVD -> ISO 的工具，不過似乎有點小問題，重寫了一個修正版。

2008-01-14
[*] 修正了時間顯示部分
[*] 修正了版本顯示部分
[*] 提高了數據寫入速度
[+] 增加了寫入速率顯示
[+] 加入在線版本檢查功能

2007-4-25

[*] 修改版本號為1.0，并使用"主.年.月.日"格式
[+] 添加刷新按鈕，用來刷新驅動器列表
[+] 用不同的圖標區分DVD和CD，且有光盤和無光盤時也不同
TODO:
某些系統下不會自動刷新驅動器列表

核心代碼
procedure TISOMaker.Build(Drive: Char; FileName: string; BufferSize: DWORD);
var
  hDrive, hFile: THandle;
  Buffer: array of Byte;
  Readed: Cardinal;
  Count,
  Total: Int64;
begin
  hFile := CreateFile(PChar(FileName), GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_ALWAYS, 0, 0);
  if hFile = INVALID_HANDLE_VALUE then
    raise Exception.CreateFmt('創建文件 %s: 失敗', [FileName]);

   hDrive := CreateFile(PChar('\\.\' + Drive + ':'), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  if hDrive = INVALID_HANDLE_VALUE then
  begin
    CloseHandle(hFile);
    raise Exception.CreateFmt('打開驅動器 %s: 失敗', [Drive]);
  end;

  FDrive := Drive;
  FAborted := False;
  try
    Count := 0;
    Total := GetDriveSize(Drive);
    GetMem(Buffer, BufferSize);

    while not FAborted and ReadFile(hDrive, Buffer[0], BufferSize, Readed, nil) and (Readed > 0) do
    begin
      Inc(Count, Readed);
      DoProgress(Count, Total);
      WriteFile(hFile, Buffer[0], Readed, Readed, nil);
    end;
  finally
    CloseHandle(hFile);
    CloseHandle(hDrive);
    FreeMem(Buffer, BufferSize);

    DoProgress(0, 0);
    FDrive := #0;
  end;
end;