Cуществует ли диск в системе?

Материал из DRKB

Cуществует ли диск в системе?[править | править код]

function DriveExists(Drive: Byte) : boolean;
begin
  Result := Boolean (GetLogicalDrives and (1 shl Drive));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Drive: Byte;
begin
  for Drive := 0 to 25 do
    if DriveExists(Drive) then
    begin
      ListBox1.Items.Add(Chr(Drive+$41));
    end;
end;


Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01370