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

[Kronos913]

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

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;

лишнее можно убрать, оставив только жёсткий диск

[Arigato]

Сообщение от NetSpace

procedure TForm1.DiskUSB;

Сообщение от NetSpace

Form1.Memo1.Clear;

Плохой стиль обращаться к объекту класса из самого класса...

[NetSpace]

Сообщение от Arigato

Плохой стиль обращаться к объекту класса из самого класса...

это чего, получается, типа нежелательно обращаться? или просто класс TForm убрать из строки?

Memo1.Clear;

это влияет на быстродействие или какие-то ошибки и исключения или перегрузку вызвать может?

[Arigato]

Исключительно в рамках парадигмы ООП. Form1 это объект класса TForm1. Обращаться из класса к конкретному объекту этого же класса нелогично.

[northener]

2 NetSpace

Form1 это объект класса TForm1

Правильнее сказать что Form1 это переменная, которая содержит ссылку на конкретный экземпляр класса TForm1. Если это автосозданный в модуле проекта экземпляр. Но конкретный экземпляр может быть создан и динамически, причем в количестве более одной штуки. На что тогда будет указывать ссылка в переменной Form1?
А любой метод класса имеет в параметрах неявный параметр Self, который как раз содержит ссылку на тот конкретный эклемпляр, для которого этот метод вызван. Таким образом если вы в методе класса обратитесь к любому полю класса например:

Memo1.Clear;

будьте уверены что очистится Мемо именно в том окне где вы и нажали кнопку.

[Vapaamies]

Старожилы и модераторы решили в этой теме поучить друг друга программированию?

[Arigato]

Vapaamies, присоединяйтесь

[Vapaamies]

Я всегда против офтопика и флуда, а по теме уже отписался.