Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: CD/DVD-Laufwerk prüfen

   
    by hoika, 17. Dez 2013
  Hallo,
  
  also mein Code lieferte eine Liste aller CD-DVD-Laufwerke.
  Du übergibst der Funktino eine vorher erzeugte StringListe:
  
  var
  SL: TStringList;
  iDrive : Integer;
  sDrive : String;
  begin
• Forum: Programmieren allgemein

  AW: CD/DVD-Laufwerk prüfen

   
    by hoika, 16. Dez 2013
  Hallo,
  
  das Array sollte nach deinem Code aber so bleiben.
  Aber ich würde das einfacher machen.
  
  procedure GetDrives(const AItems: TStrings);
  var
  Drive: Char;
  DriveType: Integer;
  DriveMask: Integer;