Project1.dpr

   1 program Project1;
   2
   3 {$APPTYPE CONSOLE}
   4 {$R *.res}
   5
   6 uses
   7   System.SysUtils,
   8   System.Classes;
   9
  10 var
  11   s: string;
  12   base: TMemoryStream;
  13
  14 begin
  15   try
  16     { TODO -oUser -cConsole \83\81\83C\83\93 : \82±\82±\82É\83R\81[\83h\82ð\8bL\8fq\82µ\82Ä\82\82¾\82³\82¢ }
  17     base := TMemoryStream.Create;
  18     try
  19       s:=ExtractFilePath(ParamStr(0));
  20       base.LoadFromFile(s+'wand.img');
  21       base.Position:=base.Size;
  22       while base.Position < 1440 * 1024 do
  23         base.WriteData(0);
  24       base.Position:=$0001FE;
  25       base.WriteData($FFFFF0AA55);
  26       base.Position:=$001400;
  27       base.WriteData($FFFFF0);
  28       base.SaveToFile(s+'test.img');
  29     finally
  30       base.Free;
  31     end;
  32   except
  33     on E: Exception do
  34       Writeln(E.ClassName, ': ', E.Message);
  35   end;
  36
  37 end.