Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Угадать букву дисковода!

Автор: Артемий2 4.09.2006 20:39

Как угадать букву винчестера?Везде искал wacko.gif нех** нет.
(Извините ошибся в названии темы)

Автор: klem4 4.09.2006 20:48

DRKB смотрел ?


Цитата(DRKB)
Получение сведений о диске (метка/имя диска, файловая система, серийный номер)

Автор: volvo 4.09.2006 20:57

Уточняющий вопрос можно? Какого винчестера? У одного пользователя стоит 1 физический диск, у другого - два... Они все разбиты на логические диски... Итого имеем буквы от C до <...> (к примеру, у меня - до H) ... Какую из этих букв ты хочешь получить?

Автор: Артемий2 4.09.2006 21:25

У которого папка Windows есть!(Вот эт я пень!)

Цитата
DRKB смотрел ?

Не пашет, Klem4! mega_chok.gif

Автор: klem4 4.09.2006 21:41

Все отлично работает. Ты сделал то что там было написано ? Вот держи рабочий проект.


Прикрепленные файлы
Прикрепленный файл  Disks.rar ( 4.18 килобайт ) Кол-во скачиваний: 189

Автор: volvo 4.09.2006 21:56

Цитата(Артемий2 @ 4.09.2006 17:25) *

У которого папка Windows есть!

А про переменную окружения %SYSTEMDRIVE% никогда не слышал?

var
  i: integer;
  s: string;

...
  try
    i := GetEnvironmentVariable(PChar('SYSTEMDRIVE'), nil, 0);

    if i > 0 then
      begin
        SetLength(s, i);
        GetEnvironmentVariable(Pchar('SYSTEMDRIVE'), PChar(s), i);
      end;
  except
    s := '';
  end;
  // В s содержится название системного диска


Автор: Артемий2 6.09.2006 16:51

Большое спасибо ребят! good.gif

Цитата
А про переменную окружения %SYSTEMDRIVE% никогда не слышал?

Честно - НЕТ!(но теперь знаю)! lol.gif