Работа с HDD

[botan32]

Добрый день! Нужна помощь. Пытаюсь получить список локальных дисков. все работает как надо, но когда запускаю прогу не из среды прогр., а четез ехе, то выскакивает ошибка "Нет диска в устройстве, вставьте диск в устройство" на те диски, которые скрыты системой. Хотя проверку я прописывал.
Исходник прилагаю

[DIgorevich]

Не видно что-то, чтобы вы что-либо приложили. Воспользуйтесь тэгом code и представьте часть кода, которой вы получаете список дисков.

[botan32]

procedure TForm1.Button2Click(Sender: TObject);
var
  LogicalDrives: Int64;
  IndexDrives: Integer;
  DiskDriveType: UInt;
begin
  try
    for IndexDrives := 1 to 26 do
    begin
    Application.ProcessMessages;
    LogicalDrives := DiskSize(IndexDrives);
    {Выводим диски которые поддаются условию}
      if LogicalDrives >= 0 then
      begin
        if CheckBox1.Checked then
        begin
        if (GetDriveType(PChar(Chr(IndexDrives + 64) + ':\')) <> DRIVE_NO_ROOT_DIR) and
           (GetDriveType(PChar(Chr(IndexDrives + 64) + ':\')) <> DRIVE_UNKNOWN) and
           (GetDriveType(PChar(Chr(IndexDrives + 64) + ':\')) <> DRIVE_REMOTE) and
           (GetDriveType(PChar(Chr(IndexDrives + 64) + ':\')) <> DRIVE_CDROM) and
           (GetDriveType(PChar(Chr(IndexDrives + 64) + ':\')) <> DRIVE_RAMDISK) then
            with ListView1.items.Add do
            begin
            Caption:=Chr(IndexDrives + 64);
            end;
        end else
        begin
        if (GetDriveType(PChar(Chr(IndexDrives + 64) + ':\')) <> DRIVE_NO_ROOT_DIR) and
           (GetDriveType(PChar(Chr(IndexDrives + 64) + ':\')) <> DRIVE_UNKNOWN) and
           (GetDriveType(PChar(Chr(IndexDrives + 64) + ':\')) <> DRIVE_REMOTE) and
           (GetDriveType(PChar(Chr(IndexDrives + 64) + ':\')) <> DRIVE_CDROM) and
           (GetDriveType(PChar(Chr(IndexDrives + 64) + ':\')) <> DRIVE_REMOVABLE) and
           (GetDriveType(PChar(Chr(IndexDrives + 64) + ':\')) <> DRIVE_RAMDISK) then
            with ListView1.items.Add do
            begin
            Caption:=Chr(IndexDrives + 64);
            end;
        end;
      end else

    end;
    except
    Application.MessageBox('Невозможно получить список дисков, дальнейшая работа невозможна!',
			                     'Ошибка при получении дисков...',
			                      MB_OK Or MB_ICONERROR);
    Exit;
    end;
end;

[DIgorevich]

В коде я вижу, что у каждого из 26 дисков идет попытка получения размера, вне зависимости от того, скрыт этот диск, удален, или еще какой. Проверка стоит только при добавлении диска в ListView.

[botan32]

Так я исходя из размера и проверяю все диски. Если размер равен -1, то диск скрыт и его в список не добавляю. Если это не правильно или есть более актуальным метод, прошу поделиться.