Forum: Object-Pascal / Delphi-Language
Delphi
by jbg,
6. Mär 2003
Ich habe nun deinen Fehler gefunden:
for j := 0 to de.NumberOfDiskExtents-1 do
begin
FDiskNumbers := de.extents.DiskNumber;
end;
Du wolltest wohl FDiskNumbersi] schreiben. Denn so wie du es hast, ersetzt du immer nur FDiskNumbers bei NumberOfDiskExtents=1.
Forum: Object-Pascal / Delphi-Language
Delphi
by jbg,
6. Mär 2003
Bei mir liefert er erstmal nur 0. Liegt aber auch daran, dass ich nur eine Platte im Rechner habe.
Was mir in deinem Quellcode allerdings abgeht sind die CloseHandle() aufrufe.