Nur CD/DVD ROM Laufwerke auslesen..

[Knut]

hi..

wie bekomme ich es hin, dass zb in einem memo feld, alle cd-rom laufweke angezeigt werden??

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 := 'FALSE';
  end;
end;

das ist der code um herauszufinden von welchem typ ein laufwerk ist. wie kann ich jetzt alle laufwerksbuchstaben testen???
wenn ich eine for schleife benutze, mit 67 (=C) als startwert, muss ich ja noch ':\' an den Char anfügen...
also

Delphi-Quellcode:

laufwerk := CHR(i) + ':\';

das funktioniert aber nicht, weil laufwerk ja jetzt kein Char mehr ist, oder??

gruß
knut

[Matze]

könnte so gehen:

Delphi-Quellcode:

for Drive := 'A' to 'Z' do
  begin
    Str := '';
    case GetDriveType(PChar(Drive + ':\')) of
      0: ;  { do nothing }
      1: ;  { do nothing }
      DRIVE_CDROM:
      begin
        Str := Drive + ':\';
        ListBox1.Items.Add(Str);
      end;
  end;

[MathiasSimmack]

Und was soll dann das:

Zitat:

Zitat von Matze

Delphi-Quellcode:

      0: ;  { do nothing }
      1: ;  { do nothing }

Aber unabhängig davon habe ich auch noch was.

[Matze]

Zitat:

Zitat von MathiasSimmack

Und was soll dann das:

Zitat:

Zitat von Matze

Delphi-Quellcode:

      0: ;  { do nothing }
      1: ;  { do nothing }

Das steht so in sakuras Code, hab's nur kurz kopiert, ich frag mich jedesmal, was das darin zu suchen hat. :roll:

[Luckie]

Steht doch oben: 0 bedeutet unbekannter Laufwerkstyp und 1, dass ein Fehler aufgetreten ist.

[Matze]

Zitat:

Zitat von Luckie

Steht doch oben: 0 bedeutet unbekannter Laufwerkstyp und 1, dass ein Fehler aufgetreten ist.

Stimmt, man kann das auch weglassen, ich hab's nur hingemacht, dann weiß ein Anfänger, was genau gemeint ist. :roll:

[Knut]

k thx damits klappts!!
die zwei zeilen lass ich weg ;)

fertisch! ging sau schnell! thx!

:dance: :dp: :dance:

[Christian Seehase]

Moin Knut,

und damit Du nicht unnötig Laufwerksbuchstaben probierst, die eh' nicht auf dem Rechner vorhanden sind, könntest Du vorher die vergebenen mit GetLogicalDriveStrings ermitteln, und dann diese Liste durchgehen.

[Matze]

Zitat:

Zitat von Christian Seehase

... könntest Du vorher die vergebenen mit GetLogicalDriveStrings ermitteln ...

Hmm @Chris, der Link geht irgendwie nicht, naja, es gibt ja die Suche, jetzt weiß man ja, wonach man suchen soll. :cool:

Edit: Mist, das verweist ja auf die Suche. :duck:
Also stimmt der Begriff nicht, oder es gibt keine Beiträge zu diesem.

[MathiasSimmack]

Ich darf mal auf den Link verweisen, der sich in meinem Beitrag befindet.

[Christian Seehase]

Moin Matze,

stimmt, kein Ergebnis :?
Und ich war mir absolut sicher, dass ich dazu schon mal was gepostet hatte.

Na gut, dann jetzt:

Delphi-Quellcode:

var
  sDrives : string;
  iIndex  : integer;

begin
  // 105, da 26 mögliche Laufwerke im Format:
  // Buchstabe:\#00
  // sowie abschliessende #00
  sDrives := StringOfChar(#00,105);
  GetLogicalDriveStrings(105,@sDrives[1]);
  iIndex := 1;
  while sDrives[iIndex] <> #00 do begin
    ShowMessage(copy(sDrives,iIndex,3));
    inc(iIndex,4);
  end;
end;

[MathiasSimmack]

Gut, dann eben nicht. :cry:

[Matze]

Zitat:

Zitat von MathiasSimmack

Gut, dann eben nicht. :cry:

Hey, komm schon! :D

Ich habe nur gemeint, dass Christians Link licht geht.
In deinem Beitrag deines Links steht dasselbe. :thumb:

Ich habe den schon damals angeschaut. ;)

[NicoDE]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  BufferLength: DWORD;
  DriveStrings: LPTSTR;
  CurrentDrive: LPTSTR;
  ReturnValue: DWORD;
begin
  BufferLength := GetLogicalDriveStrings(0, nil);
  if (BufferLength > 0) then
  begin
    DriveStrings := LPTSTR(GetMemory(
      (BufferLength + 1) * SizeOf(DriveStrings[0])));
    if (DriveStrings <> nil) then
    try
      ReturnValue := GetLogicalDriveStrings(BufferLength, DriveStrings);
      if (ReturnValue > 0) and (ReturnValue <= BufferLength) then
      begin
        CurrentDrive := DriveStrings;
        while (CurrentDrive[0] <> #0) do
        begin
          if (GetDriveType(CurrentDrive) = DRIVE_CDROM) then
            MessageBox(Handle, CurrentDrive, 'CD-ROM', MB_OK);

          CurrentDrive := LPTSTR(@CurrentDrive[StrLen(CurrentDrive) + 1]);
        end;
      end;
    finally
      FreeMemory(DriveStrings);
    end;
  end;
end;

[Matze]

Jetzt fängt Mathias gleich wieder an zu heulen. :roll:

Hier ist sein Code, er stimmt teilweise mit deinem überein. ;)

[NicoDE]

Da es keine Unicode-Version von SysUtils.StrLen gibt, sollte man in meinem Beispiel

Delphi-Quellcode:

          CurrentDrive := LPTSTR(@CurrentDrive[StrLen(CurrentDrive) + 1]);

durch

Delphi-Quellcode:

          while (CurrentDrive[0] <> #0) do
            CurrentDrive := CharNext(CurrentDrive);
          CurrentDrive := LPTSTR(
            Cardinal(CurrentDrive) + SizeOf(CurrentDrive[0]));

ersetzen.

Da die Standard-RTL von Delphi ohnehin keine brauchare Unicode-Unterstützung bietet, ist dies eher kosmetischer Natur...

[MathiasSimmack]

Zitat:

Zitat von Matze

Jetzt fängt Mathias gleich wieder an zu heulen. :roll:

Nein, ist schon okay. Wenn´s vom Ozeanbunny und von Nico kommt, dann hat das eben mehr Gewicht. Oder um es mit Dr. Zoidberg zu sagen: "What? Am I smelling?" :mrgreen: