1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Получить список всех флешек/hdd

Тема в разделе "Программирование", создана пользователем K_NoW, 15 апр 2015.

  1. TopicStarter Overlay
    K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    Код:
    function GetDiscs(): TStringList;
      var
        i: Char;
      begin
        result:= TStringList.Create;
        for i:= 'A' to 'Z' do begin
          if (GetDriveType(PChar(i+':\')) <> 1) and (GetDriveType(PChar(i+':\')) <> 0)
            then begin
               case GetDriveType(PChar(i+':\')) of
                DRIVE_REMOVABLE    :  result.Add(i+':\ - removable');
                DRIVE_FIXED:    result.Add(i+':\ - hdd');
                DRIVE_REMOTE    :   result.Add(i+':\ - network');
                DRIVE_CDROM    :   result.Add(i+':\ - cd-rom');
                DRIVE_RAMDISK:  result.Add(i+':\ - RAM drive');
               end;
                  end;
                 end;
    end;
    юзать:
    memo1.lines :=GetDiscs;
     
    • Like Like x 1
    Метки:

Поделиться этой страницей

Загрузка...