Главная страница
    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.008 c
1-101243
Wolf226
2002-10-22 09:27
2002.10.31
Склонение падежей


3-101055
AM
2002-10-11 15:57
2002.10.31
Помогите пожалйста с запросом


3-101073
zks
2002-10-11 06:32
2002.10.31
DBase Мне нужно отобрать записи через запрос


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


14-101496
Best Before 2024
2002-10-11 17:09
2002.10.31
Что делать, если изменили обе на рабочем столе?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский