Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Ноя

Найти все диски

Posted by obzor under Delphi

Использую такую вот процедуру. Но не покидает ощущение, что есть более прямой метод получения списка дисков. Вопрос: существует?

Код:

Procedure Disks(ss:TStrings);
var
  s1:string[2];
  c:char;
begin
  s1:='A:';
  ss.Clear;
  A.SetTextBuf(PChar_Computer);
  For c:='A' to 'Z' do begin
    s1[1]:=c;
    If DirectoryExists(s1) then begin
      ss.Add(s1);
    End;
  End;
end;

Vapaamies

Код:

type
  TLogicalDrive = 'A'..'Z';
  TLogicalDrives = set of TLogicalDrive;

var
  Drive: TLogicalDrive;
  Drives: TLogicalDrives;
begin
  Drives := TLogicalDrives(GetLogicalDrives);
  for Drive := Low(Drive) to High(Drive) do
    if Drive in Drives then
      // do someting
end;

NetSpace

когда-то делал вот так:

Код:

//----- определяем, есть ли съёмные диски --------------------------------------
procedure TForm1.DiskUSB;
var e:Byte;
    pn:array[1..26]of string;
    s:array[1..26]of Byte;
begin
   Form1.Memo1.Clear;
   //----- определяем тип диска: 1-не существует, 2-съёмный, 3-жёсткий, 5-CD-ROM
   for e:=1 to 26 do
   begin
      s[e]:=GetDriveType(d[e]);
      if(s[e]=1)then pn[e]:='False';
      if(s[e]<>1)then pn[e]:='True';
   end;
   //----- перебираем все съёмные диски ----------------------------------------
   for e:=1 to 26 do
   begin
      if(s[e]=2)and(ps[e]='False')and(pn[e]='True')then
      begin
         Form1.Timer1.Enabled:=False;
         CheckAutorun(d[e]);
         Form1.Timer1.Enabled:=True;
      end;
   end;
   for e:=1 to 26 do ps[e]:=pn[e];//новые данные делаем старыми
end;