Laufwerkbuchstaben auslesen

[-187-]

Hm also den versteh ich nicht. Würde gern mit dem Code weiterarbeiten:

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;

Aber ich weiss nich wie ich das in ein Array speichere und als Variable weiter verwenden kann :/

[sakura]

Es kann mit all den genannten Stichworten doch nicht so schwer zu sein, sich ein bisschen damit zu befassen oder Wir haben alle mal angefangen...

Delphi-Quellcode:

var 
  Drive: Char; 
  Drives: array of string;
  Idx: Integer;
begin
  SetLength(Drives, 0);
  Idx := 0;
  for Drive := 'A' to 'Z' do 
  begin 
    if GetDriveType(PChar(Drive + ':/')) = DRIVE_FIXED then
    begin
      SetLength(Drives, Idx + 1);
      Drives[Idx] := Drive + ':\';
      Idx := Idx + 1;
    end;
  end;

  if Length(Drives) > 0 then
    for Idx := Low(Drives) to High(Drives) do
      WriteLn(Drives[Idx]);
end;

......

[-187-]

Ich weiss nicht ob du das getestet hast aber bei mir kommt folgender Fehler:

Delphi-Quellcode:

..
....
.....
  if Length(Drives) > 0 then 
    for Idx := Low(Drives) to High(Drives) do 
      WriteLn(Drives[Idx]); 
end;

var blabla

. erwartet aber ; gefunden.. :/

...das Programm darf an dieser Stelle nich zuende sein =)

[p0w3r5tr34m3r]

Zitat von -187-:

Ich weiss nicht ob du das getestet hast aber bei mir kommt folgender Fehler:

Delphi-Quellcode:

..
....
.....
  if Length(Drives) > 0 then 
    for Idx := Low(Drives) to High(Drives) do 
      WriteLn(Drives[Idx]); 
end;

var blabla

Anweisung erwartet aber var gefunden.. :/

dann nimm mal das var blabla raus

[-187-]

Hab mein Beitrag nochma editiert. Der Fehler kommt:

. erwartet aber ; gefunden..

Das Programm geht ja noch weiter ich kann da kein end. hinsetzen...


Hier nochma der Code

Delphi-Quellcode:

....
....
  if Length(Drives) > 0 then 
    for Idx := Low(Drives) to High(Drives) do 
      WriteLn(Drives[Idx]); 
end;
//

////Get System Directory Function
function GetSysDir: String;
var
  Dir : array [0..MAX_PATH+1] of Char;
begin

[bitsetter]

Hallo,

also ich habe das Problem etwas anders gelöst, für dein 'A'..'Z' kannst du auch die Funktion GetLogicalDriveStrings() nehmen. Folgendes funktionierte jedenfalls bei mir:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows;

var
  Drives: Array of Array[0..3] of Char;
  i: integer;
begin
  SetLength(Drives, 26);
  SetLength(Drives, GetLogicalDriveStrings(length(Drives), @Drives[0]) div 4);

  for i:= Low(Drives) to  High(Drives) do
  if GetDriveType(PChar(String(Drives[i])))= DRIVE_FIXED then
    system.Writeln(String(Drives[i]));
end.