Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Deutsch für DiskExtents (https://www.delphipraxis.net/3297-deutsch-fuer-diskextents.html)

Luckie 5. Mär 2003 16:17


Deutsch für DiskExtents
 
Mit folgendem Code bekomme Informationen über die Festpaltten und deren Partitionen:
Delphi-Quellcode:
procedure Tform1.DumpDiskExtents(drive: Char);
var
  VolumePath  : String;
  hVolume     : cardinal;
  BytesWritten : DWORD;
  de          : VOLUME_DISK_EXTENTS;
  i           : Integer;
begin
  VolumePath := '\\.\'+drive+':';
  hVolume := CreateFile(pointer(Volumepath), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  if hVolume = INVALID_HANDLE_VALUE then
  begin
    RaiseLastOSError();
    exit;
  end;
  DeviceIOControl(hVolume, IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS, nil, 0, @de, sizeof(de), BytesWritten, nil);
  for i := 0 to de.NumberOfDiskExtents-1 do
  begin
    Memo1.Lines.Add('Extents für: '+drive);
    Memo1.Lines.Add('  Extent : '+IntToStr(i+1));
    Memo1.Lines.Add('  Disk  : '+IntToStr(de.extents[0].DiskNumber));
    Memo1.Lines.Add('  Offset : '+IntToStr(de.extents[0].StartingOffset.QuadPart));
    Memo1.Lines.Add('  Länge : '+IntToStr(de.extents[0].ExtentLength.QuadPart));
  end;
end;
Nur was genau bezeichnet jetzt "Extents", also wie kann man das am besten ins Deutsche übersetzen?

sakura 5. Mär 2003 16:28

Extent (engl.) Länge, Größe, Umfang

...:cat:...

Luckie 5. Mär 2003 16:32

In dem Zusammenhang paßt das aber nicht so ganz. Wie würdest du es denn beschreiben?

sakura 5. Mär 2003 16:37

Hatte nur das Extent, aber nicht Extends für: gesehen ;)

Wie wäre es mit Größenangaben für:?

...:cat:...

Luckie 5. Mär 2003 16:40

Würde zur Not gehen, aber so ganz gefällt es mir noch nicht. Es ist ja nicht nur die Größenangebe, sondern auch auf welcher Festplatte sich die Partition befindet und wo sie beginnt.

Ich hänge mal das Programm an, damit man sich ein Bild davon machen kann.

[edit=Admin]Attachment defekt. Entfernt. Mfg, Daniel[/edit]

Daniel B 5. Mär 2003 18:04

Und was soll mir das jetzt sagen?

Grüsse, Daniel :hi:

jbg 5. Mär 2003 18:15

Zitat:

Zitat von Daniel B
Und was soll mir das jetzt sagen?

Das man das PSDK ganz lesen soll
Zitat:

IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS:

Windows NT/2000/XP: Included in Windows XP and Windows .NET Server.
Windows 95/98/Me: Unsupported.

Luckie 5. Mär 2003 19:05

Jupp, ist nur für Win2000.

Aber wenn jemanden was besseres einfällt, nur raus damit.


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:19 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz