Herausfinden ob ein bestimmtes Laufwerk existiert.

[valon]

Hallo!
Ich möchte herausfinden ob ein von aussen übergebenes Laufwerk existiert.
Ich habe es so probiert.

Delphi-Quellcode:

{*******************************************************************************
* Diese Procedure setzt das von aussen übergebene Laufwerk
*******************************************************************************}
procedure TForm1.setDriveletter(newDrive: String);
begin       //Ich tue newDrive nur zuweisen,wenn dieses Laufwerk auch existiert, ansonsten
            //mach ich   nichts.
  If GetDriveType(Pchar(newDrive+))<>0 then Self.FDriveletter:=newDrive;

end;

Rückgabewert von GetDriveType ist 0 , falls er kein Laufwerk findet.
Das funzt aber nicht.

Kennt ihr ne andere Funktion?

[vlees91]

du könntest das nehmen:

Delphi-Quellcode:

function DriveType(laufwerk: PChar): String;
begin
  case GetDriveType(laufwerk) of
    DRIVE_CDROM: result := 'CD-ROM Laufwerk';
    DRIVE_FIXED: result := 'Festplatte';
    DRIVE_RAMDISK: result := 'Ramdisk';
    DRIVE_REMOTE: result := 'Netzlaufwerk';
    DRIVE_REMOVABLE: result := 'Wechsellaufwerk';
    0: result := 'unbekanntes Laufwerk';
    1: result := 'Laufwerk existiert nicht';
  end;
end;

Und wenn es "Laufwerk existiert nicht" ist, existiert es nicht.

man könnte aber auch // vor 1: result stellen und dann ist das einfach wenn es 1 ist

[valon]

danke!
Ich werde es gleich mal ausprobieren!

[DevilsCamp]

Zitat:

Zitat von valon

Delphi-Quellcode:

  If GetDriveType(Pchar(newDrive+))<>0 then Self.FDriveletter:=newDrive;

Ähm, Frage:
Was macht eigentlich das + in der GetDriveType-Funktion?
Vielleicht liegt es ja daran, dass es nicht funktioniert.

[marabu]

Wie wäre es hiermit?

Delphi-Quellcode:

// drive A = 0

function DriveExists(number: Byte): Boolean;
begin
  Result := 1 shl number and GetLogicalDrives <> 0;
end;

Grüße vom marabu