Diskette Byteweise beschreiben

[tommie-lie]

Schön daß wir auch alle wissen, wie man mit Strings und Streams arbeitet

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[1],FFS.Size);
  FFS.Free;
  FS.Write(Buffer[1],512);
  FS.Free;