Klon floppy

[MadMax]

Zitat von jbg:

Zitat:

RawReadSectors(RawOpenDrive('a')...

1. Und wann gibst du das Diskettenlaufwerk wieder für andere Anwendungen frei?

2. OnFormCreate: "RawOpenDrive('a');" Und wo ist die Zuweisung an Raw?


3. Wie hast du buf deklariert?

4. Wie oft willst du das nicht an Raw zugewiesene Diskettenlaufwerk freigeben "RawCloseDrive(Raw);" ?

5. Willst du nur 4 Sektoren einlesen? SizeOf(Integer) = 4 = SizeOf(RawDrive.DiskGeometry.BytesPerSector) ?

Hab jetzt das geändert;

Ich komm nur nicht ganz mit dem „buf“ klar. Kann es sein das bei win 200 der zugriff anderes als bei Win NT ist.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  raw := RawOpenDrive('a');
end;

Delphi-Quellcode:

RawReadSectors(raw, buf, 20);
RawCloseDrive(raw);