Forum: Win32/Win64 API (native code)
Delphi
by jbg,
30. Apr 2003
Sowas passiert eben, wenn 2 Programmierer aufeinander treffen, wobei der 1. Zahlen einsetz und der 2. die Konstanten dafür. :oops:
Forum: Win32/Win64 API (native code)
Delphi
by jbg,
30. Apr 2003
Der andere Schutz besteht dann wohl in den restlichen 2860 Sektoren, die du nicht kopierst. Ist dir nicht aufgefallen, dass das Kopieren nicht etwas zu schnell war?
Zudem: Ich hatte jetzt keine Lust mich durch die Windows.pas zu schlagen in der Hoffnung, dass ich herausbekomme was 49 bedeuten soll. Also habe ich es durch MB_OKCANCEL ersetzt. Neben dem, das es schlechter Programmierstil ist,...
Forum: Win32/Win64 API (native code)
Delphi
by jbg,
29. Apr 2003
Der Code ist für Win2000/XP und dürfte unter NT auch laufen.
var buf: array of Byte; (512 ist der BytesPerSector Wert für 3 1/2'' Disketten).
Forum: Win32/Win64 API (native code)
Delphi
by jbg,
29. Apr 2003
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)...