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);