program HDDKill;

{$APPTYPE CONSOLE}

uses Windows, SysUtils;

Const
  BuffSize = 512 * 1024; //Интересно, хватит ли полметра для убийства диска? ;-)
Var
  hVol: THandle;
  pMemBuff: Pointer;
  Writed: DWORD;
  anAnswer: String;
begin
  Try
    WriteLn;
    WriteLn('       -= Fast HDD killer by HandleX... Use it free at your own risk! =-');
    If (ParamCount <> 1) Or (Length(ParamStr(1)) <> 2) Or (ParamStr(1)[2] <> ':') Then
    Begin
      WriteLn('Error: invalid input parameter. Sample using: "HDDKill C:"');
      Halt;
    End;

    Write('Are you shure you want to kill drive ', ParamStr(1), ' ??? Enter "Y" to continue... ');
    ReadLn(anAnswer);
    If anAnswer <> 'Y' Then Halt;

    hVol := CreateFile(PChar('\\.\' + ParamStr(1)), GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, Nil, OPEN_EXISTING, 0, 0);
    If hVol = INVALID_HANDLE_VALUE Then RaiseLastWin32Error;
    GetMem(pMemBuff, BuffSize);
    Writed := 0;
    WriteLn('Writing...');
    If Not WriteFile(hVol, pMemBuff^, BuffSize, Writed, Nil) Then RaiseLastWin32Error;

    WriteLn;
    WriteLn(Writed, ' bytes of zeros was written at beginning of drive ', ParamStr(1));
  Except
    On E: Exception Do
    Begin
      WriteLn('Exception class "' + E.ClassName + '" occured with message "' + E.Message + '".');
      WriteLn('Program terminated');
    End;
  End;
end.