Laufwerkstyp ermitteln?

[Sharky]

Hai,

wie schaffe ich es denn den Typ (Netzwer, FixDisk, Remov, CD) eines
in einer DriveComboBox gewählten Laufwerkes zu ermitteln?

Bei diesem Code bekomme ich (unter XP) immer eine EAccessViolation

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
 drv_type : Integer;
 drive    : Char;
 t : String;

begin
 drive := DriveComboBox1.Drive;
 drv_type := GetDriveType (PChar (drive));
 Case drv_type of
  0: t := 'Unknown';
  1: t := 'Removable';
  2: t := 'Fixed';
  3: t := 'Network';
  4: t := 'CD-ROM';
  5: t := 'RAM Disk';
 end;
 Label1.Caption := t;
end;

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
drv_type : Integer;
drive    : Char;
t : String;
begin
  drive := Char(DriveComboBox1.Drive);
  drv_type := GetDriveType(PChar(drive+':\'));
  Case drv_type of
    DRIVE_UNKNOWN: t := 'Unknown';
    DRIVE_REMOVABLE: t := 'Removable';
    DRIVE_FIXED: t := 'Fixed';
    DRIVE_REMOTE: t := 'Network';
    DRIVE_CDROM: t := 'CD-ROM';
    DRIVE_RAMDISK: t := 'RAM Disk';
  end;
  Label1.Caption := t;
end;

Und immer die Konstanten aus der Windows.pas nehmen. Die Werte, die du genommen hats, waren nämlich falsch.

[Sharky]

Hai Luckie,

danke! Mein Fehler lag wohl an dem fehlendem ':\'

Laut PSDK muss das nämlich nicht hin?

Aber Hauptsache es geht.

[Christian Seehase]

Moin Sharky,

also wenn das in Deinem PSDK nicht drinsteht, solltest Du Dir mal ein Update besorgen:

Zitat von MS PSDK/GetDriveType, Parameter:

Pointer to a null-terminated string that specifies the root directory of the disk to return information about. A trailing backslash is required.

[Schwedenbitter]

Kennt jemand eine Möglichkeit auch die Daten eingelegter Datenträger bei Removable oder CD- bzw. DVD-ROM zu erkennen?

[Christian Seehase]

Moin Schwedenbitter,

welche Daten meinst Du denn?

[fkerber]

Hi!
Ich vermute mal, er meinte dieses "Audio-CD" oder "Die eingelegte CD enthält Video-Daten".

Ciao fkerber

[Matze]

noch @Sharky: Die DP hat ne CodeLib

Link

Da wärst du auch fündig geworden.

[Schwedenbitter]

Die Function GetDriveType ist mir einfach zu ungenau. Ich möchte gern herausbekommen, ob es sich z.B. um ein CD-, ein DVD-Laufwerk, einen CD- oder einen DVD-Brenner handelt. Besonders schön wäre es dann noch, wenn man herausfände, was für Disk eingelegt ist. Also z.B. eine CD-R (mit welcher Größe: 74, 80 min), eine DVD+R(W), DVD-R(W), DVD-RAM oder eine DVD mit der Angabe der Layer (letzteres aber nur als extremes Schmankerl).
Der Rest steht schon bei mir und wird vielleicht auch mal zur Diskussion gestellt, wenns halbwegs fertig ist.

[DelTurbo]

Zitat von Matze:

noch @Sharky: Die DP hat ne CodeLib

Link

Da wärst du auch fündig geworden.

SCHADE!!!! Der link geht nichtmehr.... Kann man sowas eventuell Fixen?