program driveimg;

 

  SysUtils,

  Windows;

 

 hFDrive : HFILE;

 hImgFile: HFILE;

 pBuffer : array[1..(1024 * 1024)] of Byte; // 1mb buffer

 iBuffRe : DWORD;

 iBuffWr : DWORD;

 sEx     : string;

 

 hFDrive := CreateFile('\\.\D:', GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);

 if ( hFDrive <> INVALID_HANDLE_VALUE ) then

 begin

 

  hImgFile := CreateFile('disk.iso', GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_ALWAYS, 0, 0);

  if ( hImgFile <> INVALID_HANDLE_VALUE ) then

 

  begin

   iBuffRe := 1;

 

   while (

           (ReadFile(hFDrive, pBuffer, SizeOf(pBuffer), iBuffRe, nil) = True) and

           (iBuffRe <> $0000)

         ) do

   begin

    WriteFile(hImgFile, pBuffer, iBuffRe, iBuffWr, nil);

    if ( iBuffRe <> iBuffWr ) then

    begin

     WriteLn('Error while writening image');

     Break;

    end;

    Write(#4);

   end;

 

   WriteLn(#13#10#13#10'Write image OK');

 

   CloseHandle(hImgFile);

  end else

   WriteLn('Image to output dissalowed.');

  CloseHandle(hFDrive);

 end else

  WriteLn('No disk in drive...');

 

 ReadLn(sEx);

end.