Delphi Code - kann den jemand für ne DLL umschreiben

[Muetze1]

Moin!

Delphi-Quellcode:

function RefreshDriveList(DrivesList : TStrings): string;
var
  i,typ: Integer;
  s: string;
begin
  for i:=0 to 25 do
  begin
    s := Chr(i + 65) + ':\';
    typ := GetDriveType(PChar(s));
    if typ = DRIVE_CDROM then
      DrivesList.Add(s);
  end;
end;

Aufruf:
  RefreshDriveList(ComboBox1.Items); MfG
Muetze1