Laufwerkbuchstaben auslesen

[-187-]

Delphi-Quellcode:

var 
  Drive:Char; 
begin 
  for Drive := 'A' to 'Z' do 
  begin 
   case GetDriveType(PChar(Drive + ':/')) of
   DRIVE_FIXED: ComboBox1.Items.Add(Drive+':\'); 
  end;
  end;

Mit dem Code kann man die Laufwerkbuchstaben auslesen und in einer Combobox anzeigen lassen. Ich benutze aber ein Konsolen Programm und möchte die Buchstaben als eine Variable ausgeben. Ich bräuchte ja sowas wie eine Liste, was wäre hier passend?

[Luckie]

Dann schreib die Laufwerksbuchstaben doch mit Wrtieln in die Konsole.

[-187-]

möchte sie nich in der console haben, möchte sie als variable sodass eien prozedur mit den vorhandenen laufwerken arbeiten kann

[Matze]

Nimm doch ein Array.

[Luckie]

Na dann sichere sie in einem Array und übergib das Array der Funktion.

[-187-]

Hm ok hab ich auch noch nich mit gearbeitet, werd das mal versuchen das wird wohl sowas sein:

Delphi-Quellcode:

var
  HDD: Array[1..3] of Byte;
  Drive:Char; 
begin 
  for Drive := 'A' to 'Z' do 
  begin 
   case GetDriveType(PChar(Drive + ':/')) of
   DRIVE_FIXED: HDD:=(Drive+':\');

[Matze]

Bei dir wären dynamische Arrays das richtige, da du von vornherein keine feste Größe zuweisen kannst, weil du nicht weißt, wie viele Laufwerke es gibt. Aber dazu steht im Forum sehr viel.
Im Notfall kannst du auch eine feste Größe von 24 zuweisen und dann von Low() bis High() arbeiten, doch das finde ich keine schöne Lösung.

[-187-]

Habe jetzt folgenden Code gefunden:

Delphi-Quellcode:

program Project1;
{$APPTYPE CONSOLE}

uses
  System.IO;

var
  Drives : Array of String;
  i      : Integer;

begin
  // Get the logical drives on this machine
  Drives := System.IO.Directory.GetLogicalDrives;

  // Display them
  for i := 0 to Length(Drives)-1 do
    Console.WriteLine(Drives[i]);

  Console.Readline;
end.

Dafür brauch ich aber die System.IO.dcu. Wo krieg ich die her und wie initialisiere ich die in Delphi?

MFG

[Klaus01]

System.IO ist .Net oder nicht?

Vielleicht ist der Code besser, arbeitet mit einer StringList.

Gruesse
Klaus