Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];

Вниз

Мастера как можно определить КЕМ СДЕЛАН винчестер и ID   Найти похожие ветки 

 
Dimich1978   (2002-10-21 11:59) [0]

Вот и все.


 
REA   (2002-10-21 12:00) [1]

Видел вроде такую шнягу: под W98 залезть в порты. Под NT написать драйвер и залезть в порты.


 
REA   (2002-10-21 12:06) [2]

Наврал наверно. Вот кусок который MBR читает. Может пригодится.

NTSTATUS MSJReadDriveZeroMasterBootRecord(PUCHAR pBuffer)
{
NTSTATUS ntStatus;
UNICODE_STRING uszDeviceName;
PFILE_OBJECT fileObject;
PDEVICE_OBJECT pDriveDeviceObject;


// Initialize unicode string
RtlInitUnicodeString(&uszDeviceName, L"\\DosDevices\\PhysicalDrive0");

// Get a pointer to PhysicalDrive0
ntStatus = IoGetDeviceObjectPointer(&uszDeviceName,
FILE_READ_ATTRIBUTES,
&fileObject,
&pDriveDeviceObject);

// If the device object pointer is valid...
if(NT_SUCCESS(ntStatus))
{
IO_STATUS_BLOCK ioStatus;
KEVENT event;
PIRP pIrp;

LARGE_INTEGER sectorNum;


KeInitializeEvent(&event, NotificationEvent, FALSE);


sectorNum.LowPart = sectorNum.HighPart = 0;

pIrp = IoBuildSynchronousFsdRequest(IRP_MJ_READ,
pDriveDeviceObject,
pBuffer,
512,
&sectorNum,
&event,
&ioStatus);

if(!pIrp)
return FALSE;

ntStatus = IoCallDriver(pDriveDeviceObject, pIrp);

if(ntStatus == STATUS_PENDING)
{
KeWaitForSingleObject(&event, Suspended, KernelMode, FALSE, NULL);
ntStatus = ioStatus.Status;
}

if(!NT_SUCCESS(ntStatus))
return ntStatus;


// Ditch the fileObject pointer created earlier
ObDereferenceObject(fileObject);
}

return ntStatus;
}


 
iNew   (2002-10-21 12:12) [3]

Попробуй поискать в реестре.


 
Игорь Шевченко   (2002-10-21 12:14) [4]

REA © (21.10.02 12:06)

В переводе на Delphi это особенно рулезно смотрится.


 
REA   (2002-10-21 12:17) [5]

Да это из драйвера какого-то кусок. Оно вообще на Delphi не смотрится.


 
Ученик   (2002-10-21 12:19) [6]

http://www.sources.ru/cpp/system/devid.shtml


 
Dimich1978   (2002-10-21 12:25) [7]

Да на С++ есть, а вот под Делфи...толком ничего. Попробовать перевести тока с С++, но его еще знать надо...а с этим у меня проблема. Так общий смысл


 
Dimich1978   (2002-10-21 13:19) [8]

Если кому интересно, под Паскаль есть такая фича как определение ID винчестера....нашел в инете
http://www.osp.ru/pcworld/1999/04/105lis14.htm



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.007 c
3-101048
Conqueror
2002-10-09 03:56
2002.10.31
Помогите с сортировкой


3-101119
User0
2002-10-04 19:30
2002.10.31
HELP! Как сделать чтоб IB база данных понимала кириллицу ??


1-101334
Myckyc
2002-10-20 18:19
2002.10.31
Дочернее окно на панели задач?


4-101570
ai
2002-09-17 12:36
2002.10.31
TbitMap.SaveToFile - не могу открыть в Photoshop


7-101546
JAndrey
2002-08-21 11:34
2002.10.31
Как запрограммировать COM порт на скорость > 115200 бит/сек





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский