Dll-Zuweisung

[JWollenberg]

Hallo Leute,

ich stehe etwas auf dem Schlauch, wie spreche ich die scrrun.dll an, damit dieser Quelltext (nicht von mir, ist aus dem Netz: https://www.delphi-treff.de/tipps-tr...e-cd-ram-disk/) funktioniert.

Quelltext:

Delphi-Quellcode:

procedure GetDrives(const AItems: TStrings);
const
  DriveTypeTexts: array[DRIVE_UNKNOWN..DRIVE_RAMDISK] of string =
   ('Unbekannt', 'Kein Wurzelverzeichnis', 'Diskette', 'Festplatte', 'Netzlaufwerk', 'CDROM', 'RAMDisk');
var
  Drive: Char;
  DriveType: Integer;
  DriveMask: Integer;
  Flag: Integer;
begin
  DriveMask := GetLogicalDrives; //Bitmaske holen
  flag := 1; //Startflag setzen
  for Drive := 'A' to 'Z' do //Jeden Buchstaben gegenprüfen
  begin
    if (flag and DriveMask)  0 then
    begin
      DriveType := GetDriveType(PChar(Format('%S:',[Drive]) ) ) ;
      AItems.Add(Format('%s: %s', [Drive, DriveTypeTexts[DriveType]]));
    end;
    flag := flag shl 1; //Ein Bit weiter nach links gehen ( = flag * 2)
  end;
end;

Vielen Dank im Voraus!
MfG Jürgen