Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Sektoren auslesen (https://www.delphipraxis.net/3281-sektoren-auslesen.html)

nice 3. Mär 2004 10:09

Re: Sektoren auslesen
 
Also ich konnte das Problem jetzt isolieren:

Delphi-Quellcode:
function RawOpenDrive(DriveLetter: Char): TRawDrive;
var num,h: Cardinal;
begin
  h:=0;
  FillChar(Result, SizeOf(TRawDrive), 0);

  Handle := CreateFile(PChar('\\.\' + DriveLetter + ':'),
                       GENERIC_READ or GENERIC_WRITE,
                       FILE_SHARE_READ or FILE_SHARE_WRITE,
                       nil,
                       OPEN_EXISTING,
                       0,
                       0);
  Result.Handle := Handle;
  if Result.Handle = INVALID_HANDLE_VALUE then RaiseLastOSError;

  // Laufwerk für andere sperren
  if not DeviceIoControl(h, FSCTL_LOCK_VOLUME, nil, 0, nil, 0, num, nil) then
  RaiseLastOSError;

  { Disk-Geometry ermitteln. Vor allem ist das Feld BytesPerSector wichtig, da nur vielfache Bytes gelesen werden können. Ist also BytesPerSector z.B: 512 und man will nur 1 Byte lesen, muss man 512 Bytes lesen. }
  if not DeviceIoControl(Handle,IOCTL_DISK_GET_DRIVE_GEOMETRY, nil, 0,@Result.DiskGeometry,SizeOf(TDiskGeometry), num, nil) then
    RaiseLastOSError;
end;
Wenn ich als DriveLetter 'C' übergeb müsste
es ja theoretisch klappen, nur kommt dann
Zitat:

Zitat von Windows
---------------------------
Systemfehler. Code: 6.
Das Handle ist ungültig.
---------------------------
OK
---------------------------

an der Zeile
Delphi-Quellcode:
if not DeviceIoControl(Handle,IOCTL_DISK_GET_DRIVE_GEOMETRY, nil, 0,@Result.DiskGeometry,SizeOf(TDiskGeometry), num, nil) then
    RaiseLastOSError;
Was ich nicht verstehe, da ja dieses Handle weiter oben geprüft und annerkannt wird... :wiejetzt:

Christian Seehase 3. Mär 2004 15:26

Re: Sektoren auslesen
 
Moin Nice,

welche Variable enthält denn nun das Handle?
h oder handle?

Das geht aus Deinem Code nämlich nicht genau hervor.

Am Besten setzt Du mal einen Breakpoint auf die DeviceIOControl Zeile und prüfst mal den Inhalt der dort als Handle übergebenen Variablen.

APP 3. Mär 2004 15:55

Re: Sektoren auslesen
 
Hallo,
ich hätte da noch eine Frage zu CreateFile:

Delphi-Quellcode:
 Handle := CreateFile(PChar('\\.\' + DriveLetter + ':'),
Laut PSDK ist '\\?\' der UNC Präfix für einen Filenamen, ist dann auch '\\.\' zulässig?

Ausserdem steht im PSDK unter Driveletter z.B. 'C:\', in obigem Beispiel würde der Driveletter '\\.\C:' sein, ist das auch erlaubt?

nice 3. Mär 2004 16:13

Re: Sektoren auslesen
 
sorry,das war,weil wir getestet haben

handle soll das handle sein,h war nur tempörär zum fehlersuchen eingesetzt

werd ich mal testen(wahrscheinlich aber net gleich morgen)

@app - wenn die frage an mich war

mit nem ? haben wirs auch getestet - leider ohne erfolg

Christian Seehase 3. Mär 2004 22:31

Re: Sektoren auslesen
 
Moin Armin,

ja diese Schreibweise ist, übrigens gemäss PSDK ;-), auch möglich.
Schau Dir mal den Abschnitt unter "Physical disks and volumes" an.


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:35 Uhr.
Seite 3 von 3     123   

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