C:\Documents and Settings\Nathan Campos\My Documents\OS Tests\BootProg>partcopy
boot.bin a: 0 200

C:\Documents and Settings\Nathan Campos\My Documents\OS Tests\BootProg>
PartCopy - Version 1.11 Release 2 Build 4
Copyright (C) 2005-2010 John Buoro, VirtualObjectives.
All Rights Reserved.
This program is Freeware and must not be distributed or sold for profit.

Using Command-Line Parameters
Source File = boot.bin
Destination File = a:
Start Position = 0
ERROR: Start position was not specified correctly.
Offset Length = 200
ERROR: Offset length was not specified correctly.    

program boohsec;
{$APPTYPE CONSOLE}
uses windows;
const IOCTL_DISK_IS_WRITABLE=458788;
var
   drivehandle:hwnd;
   buffer:array[0..511] of byte;
   n:cardinal;
   sectorfile:hfile;
   filename:widestring;

function getparam:widestring;
var
   posi:integer;
begin
   result:=getcommandlinew;
   if result[1]='"' then
   begin
      delete(result,1,1);
      posi:=pos('"',result);
      delete(result,1,posi+1);
   end
   else
   begin
      posi:=pos(' ',result);
      delete(result,1,posi);
   end;
end;

function MAKELANGID(p,s:word):dword;
begin
    result:=(s shl 10) or p;
end;

procedure err(title:widestring='Error');
var buffer:pwidechar;
begin
   FormatMessageW(FORMAT_MESSAGE_ALLOCATE_BUFFER or
                  FORMAT_MESSAGE_FROM_SYSTEM or
                  FORMAT_MESSAGE_IGNORE_INSERTS,
                  nil,GetLastError,MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),
                  @buffer,0,nil);
   MessageBoxW(0,buffer,pwidechar(title),mb_ok);
   halt(getlasterror);
end;

begin
   filename:=getparam;
   drivehandle:=createfile('\\.\a:',GENERIC_READ or GENERIC_WRITE,FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
   if not(DeviceIoControl(drivehandle,IOCTL_DISK_IS_WRITABLE,nil,0,nil,0,n,nil)) then
   begin
      MessageBox(0,'Drive is not writable',nil,mb_ok);
      halt(1);
   end;
   sectorfile:=createfilew(pwidechar(filename),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
   if sectorfile=INVALID_HANDLE_VALUE then
      err(filename);
   if not(readfile(sectorfile,buffer,512,n,nil)) then
      err('readfile');
   if not(writefile(drivehandle,buffer,sizeof(buffer),n,nil)) then
      err('writefile');
   closehandle(drivehandle);
end.