Прога для определения модели жесткого диска

@nikitoto · Регистрация: 17.11.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте! Возможно ли как нибудь реализовать программу для определения модели жесткого диска, т.е. полосочка для выбора диска, выбираем, нажимаем показать модель и отображается модель выбранного диска. Может быть есть готовые варианты? Заранее спасибо

17.03.2013, 12:12

Посмотри это.

@nikitoto · 17.03.2013, 14:00 **[ТС]**

не понял что это...
какие еще варианты подкинете?

17.03.2013, 14:25

Это

...программу для определения модели жесткого диска...

но раз не поняли, то вам ещё рано такими вещами заниматься.

@nikitoto · 17.03.2013, 15:31 **[ТС]**

извиняюсь
при открытии dpr появляется окошко Cannot find hdd.res Recreated
и при компиляции появляется окошко в нем мемо и кнопка, нажимаю на кнопку и ничего не происходит
помогите разобраться =(

17.03.2013, 15:39

Что пересоздался res-файл это нормально, в архив он не вложен за ненадобностью.
Какая версия Дельфи, OS?

@nikitoto · 17.03.2013, 16:24 **[ТС]**

делфи есть 9 и 7, открывал через 7
винда семерка макс 32

17.03.2013, 22:14

В Win 7 работать не будет.

@nikitoto · 18.03.2013, 10:06 **[ТС]**

а через совместимость? или через эмулятор?
извиняюсь щас нет возможности проверить

Добавлено через 1 час 31 минуту
сделал на ХР, такая же ситуация(

18.03.2013, 12:31

В XP я проверял с разными версиями Дельфи работает, только для юникодных версий немного подправить код нужно. в Win7 и выше не отрабатывает функция DeviceIoControl.

@nikitoto · 18.03.2013, 14:02 **[ТС]**

Подкиньте сборку ХР на которой пойдет нормально, я через ВиртуалБокс установлю, и скомпелирую. Должно сработать?

18.03.2013, 14:08

Немного меняется процедура Button1Click с учётом юникодных версий Дельфи

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
procedure TForm1.Button1Click(Sender: TObject);
var
  tmp  : AnsiString;
  dev  : THandle;
  scip : TSendCmdInParams;
  scop : TSendCmdOutParams;
  gvip : TGetVersionInParams;
  ret  : DWORD;
begin
  Memo1.Clear;
  dev := CreateFile('\\.\PhysicalDrive0', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  if dev <> INVALID_HANDLE_VALUE then
  begin
    if DeviceIoControl(dev, SMART_GET_VERSION, nil, 0, @gvip, SizeOf(gvip), ret, nil) then
    begin
      scip.dwBufferSize := 512;
      scip.bDriveNumber := 0;
      scip.irDriveRegs.bSectorCountReg := 1;
      scip.irDriveRegs.bSectorNumberReg := 1;
      scip.irDriveRegs.bDriveHeadReg := $A0;
      scip.irDriveRegs.bCommandReg := ID_CMD;
      if not DeviceIoControl(dev, SMART_RCV_DRIVE_DATA, @scip, SizeOf(scip), @scop, SizeOf(scop), ret, nil) then
        ShowMessage(SysErrorMessage(GetLastError))
      else if scop.dsDriverStatus.bDriverError = DRVERR_NO_ERROR then 
      begin
        CorrectDevInfo(scop);
        SetLength(tmp, 20);
        Move(scop.bBuffer[21], tmp[1], 20);
        Memo1.Lines.Add('Serial Number: ' + String(tmp));
        SetLength(tmp, 8);
        Move(scop.bBuffer[47], tmp[1], 8);
        Memo1.Lines.Add('Firmware Revision: ' + String(tmp));
        SetLength(tmp, 40);
        Move(scop.bBuffer[55], tmp[1], 40);
        Memo1.Lines.Add('Model: ' + String(tmp));
      end
      else
        ShowMessageFmt('Error code: %d', [scop.dsDriverStatus.bDriverError])
    end
    else
      ShowMessage(SysErrorMessage(GetLastError));
    CloseHandle(dev);
  end;
end;

@nikitoto · 19.03.2013, 10:40 **[ТС]**

удалил старую процедуру, вставил новую: такая же ерунда

может быть потому что я делаю все это в универе, а тут сидишь не под учеткой админа и многие действия запрещены?

19.03.2013, 12:13

Вот проверь у себя, под XP работает.

@nikitoto · 19.03.2013, 20:15 **[ТС]**

спасибо огромное, екзешник даже на 7 в режиме совместимости работает! но как форму редактировать? первый раз сталкиваюсь с подобным

19.03.2013, 22:07

Какая там форма - WinAPI.

@nikitoto · 20.03.2013, 19:16 **[ТС]**

спасибо огромное все сделал, только не могу кнопку по центру сделать! я ее переделал малех и она теперь криво, подскажите как

20.03.2013, 23:37

Delphi
1
2
3
4
5
6
7
    WM_SIZE :
    begin
      GetClientRect(Wnd, aRect);
      SetWindowPos(Edit, 0, 8, 8, aRect.Right - 16, aRect.Bottom - 50, SWP_NOZORDER);
      // эта строка выравнивает кнопку по центру и прижимает к нижнему краю.
      SetWindowPos(Button, 0, (aRect.Right - 75) div 2, aRect.Bottom - 35, 0, 0, SWP_NOZORDER or SWP_NOSIZE);
    end;

@nikitoto · 21.03.2013, 16:14 **[ТС]**

кстати а еще вопросик, а откуда программа берет информацию всю? из диспетчера устройств я так понял

21.03.2013, 17:28

У современных HDD, есть такое понятие как S.M.A.R.T. Вот оттуда.

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@nikitoto 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 53

	Прога для определения модели жесткого диска 17.03.2013, 10:13. Показов 4565. Ответов 20 Метки нет (Все метки) Здравствуйте! Возможно ли как нибудь реализовать программу для определения модели жесткого диска, т.е. полосочка для выбора диска, выбираем, нажимаем показать модель и отображается модель выбранного диска. Может быть есть готовые варианты? Заранее спасибо 0

@nikitoto 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 53
	17.03.2013, 14:00 [ТС]
	не понял что это... какие еще варианты подкинете? 0

@nikitoto 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 53
	17.03.2013, 15:31 [ТС]
	извиняюсь при открытии dpr появляется окошко Cannot find hdd.res Recreated и при компиляции появляется окошко в нем мемо и кнопка, нажимаю на кнопку и ничего не происходит помогите разобраться =( 0

angstrom
	17.03.2013, 15:39
	Что пересоздался res-файл это нормально, в архив он не вложен за ненадобностью. Какая версия Дельфи, OS?

@nikitoto 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 53
	17.03.2013, 16:24 [ТС]
	делфи есть 9 и 7, открывал через 7 винда семерка макс 32 0

angstrom
	17.03.2013, 22:14
	В Win 7 работать не будет.

@nikitoto 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 53
	18.03.2013, 10:06 [ТС]
	а через совместимость? или через эмулятор? извиняюсь щас нет возможности проверить Добавлено через 1 час 31 минуту сделал на ХР, такая же ситуация( 0

angstrom
	18.03.2013, 12:31
	В XP я проверял с разными версиями Дельфи работает, только для юникодных версий немного подправить код нужно. в Win7 и выше не отрабатывает функция DeviceIoControl.

@nikitoto 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 53
	18.03.2013, 14:02 [ТС]
	Подкиньте сборку ХР на которой пойдет нормально, я через ВиртуалБокс установлю, и скомпелирую. Должно сработать? 0

@nikitoto 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 53
	19.03.2013, 10:40 [ТС]
	удалил старую процедуру, вставил новую: такая же ерунда может быть потому что я делаю все это в универе, а тут сидишь не под учеткой админа и многие действия запрещены? 0

@nikitoto 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 53
	19.03.2013, 20:15 [ТС]
	спасибо огромное, екзешник даже на 7 в режиме совместимости работает! но как форму редактировать? первый раз сталкиваюсь с подобным 0

angstrom
	19.03.2013, 22:07
	Какая там форма - WinAPI.

@nikitoto 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 53
	20.03.2013, 19:16 [ТС]
	спасибо огромное все сделал, только не могу кнопку по центру сделать! я ее переделал малех и она теперь криво, подскажите как 0

@nikitoto 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 53
	21.03.2013, 16:14 [ТС]
	кстати а еще вопросик, а откуда программа берет информацию всю? из диспетчера устройств я так понял 0

angstrom
	21.03.2013, 17:28
	У современных HDD, есть такое понятие как S.M.A.R.T. Вот оттуда.