"Knowledge itself is power" F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ

		Круглый стол     Правила КС >> Настройки Фильтр вопросов >> Новые вопросы отслеживать по >> Новые ответы Избранное Страница вопросов Поиск по КС Специальные проекты: >> К л ю к в а >> Г о л о в о л о м к и Вопрос № Задать вопрос Off-topic вопросы Помощь    К н и г и   Книжная полка     Библиотека           О чем не пишут в книгах по Delphi   Поиск   Поиск по КС Поиск в статьях Яndex© + Google© Поиск книг       Тематический каталог Все манускрипты       Карта VCL ОШИБКИ Сообщения системы   Форумы   Круглый стол Новые вопросы       Базарная площадь Городская площадь       С Л С   Летопись   Королевские Хроники Рыцарский Зал Глас народа!       ТТХ Конкурсы Королевская клюква   Разделы   Hello, World! Лицей Квинтана       Сокровищница Подземелье Магов Подводные камни Свитки       Школа ОБЕРОНА       Арсенальная башня Фолианты Полигон       Книга Песка Дальние земли       АРХИВЫ     Сейчас на сайте присутствуют:			Во Флориде и в Королевстве сейчас  09:05 [Войти] | [Зарегистрироваться] Ответ на вопрос № 34136 HDD, FDD | 01-08-2005 01:34 [off topic] Если в Delphi функция позволяющая узнать серийный номер винчестера? Заранее благодарен!!! [+] Добавить в избранные вопросы Отслеживать ответы на этот вопрос по RSS Ответы: Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса. 01-08-2005 04:10 То, что предложено Евгением Кондрашовым, позволяет узнать лишь серийный номер тома (он создается при разбивке и форматировании диска, и, следовательно может изменяться), а отнюдь не серийный номер винчестера (не может быть изменен, т.к. "зашит" в усторойстве). Для решения задачи смотри примеры здесь: http://home.earthlink.net/~akonshin/delphi_ru.htm  777 Просмотреть все ответы этого автора 01-08-2005 01:37 procedure TForm1.Button1Click(Sender: TObject); var SerialNum : dword; a, b : dword; Buffer  : array [0..255] of char; begin if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), @SerialNum, a, b, nil, 0) then Label1.Caption := IntToStr(SerialNum); end;  Евгений Кондрашов Просмотреть все ответы этого автора Добавьте свое cообщение Вашe имя:  [Войти] Ваш адрес (e-mail): На Королевстве все адреса защищаются от спам-роботов контрольный вопрос: Кто съел Красную шапочку? в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале. Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте. Тип сообщения: ОтветВопрос к автору: запрос дополнительной информацииСообщение от автора вопросаКомментарий к предыдущим ответам Текст:                        вопрос Круглого стола № XXX вопрос № YYY в тесте № XXX Рыцарской Квинтаны сообщение № YYY в теме № XXX Базарной площади обсуждение темы № YYY Базарной площади     Правила оформления сообщений на Королевстве Страница избранных вопросов Круглого стола.

Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
Функция может не работать в некоторых версиях броузеров.