Diskette Byteweise beschreiben

[moritz]

Hmm...ich habs jetzt mal so probiert:

Delphi-Quellcode:

var FS: TFIleStream;
    FFS: TFileStream;
    Buffer: String;
begin
  FS:=TFileStream.Create('\\.\A:', fmOpenWrite);
  FS.Seek(0, soFromBeginning);
  FFS:=TFileStream.Create('DATEI',fmOpenRead);
  FFS.Seek(0,soFromBeginning);
  SetLength(Buffer,FFS.Size);
  FFS.ReadBuffer(Buffer,FFS.Size);
  FFS.Free;
  FS.Write(Buffer,512);
  FS.Free;

Aber leider bekomme ich immer eine Zugriffsverletzung