IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Угадать букву дисковода!
сообщение
Сообщение #1


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


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

Сообщение отредактировано: Артемий2 -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


DRKB смотрел ?


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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






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


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


У которого папка Windows есть!(Вот эт я пень!)
Цитата
DRKB смотрел ?

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

Сообщение отредактировано: Артемий2 -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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


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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Цитата(Артемий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 содержится название системного диска

 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


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

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

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

Сообщение отредактировано: Артемий2 -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 17:40
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name