[AXS]

Есть ли функция, или что-то подобное, возвращающая номер винта, с которого была запущена прога? А также, если есть какие нибудь справочники по подобной теме, то можно дать ссылку.

[Decoding]

Вот пример, который вернет серийный номер тома (именно тома, а не самого диска!!!).

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

<font color="black"><b>function</b> GetHDDSerialNumber(ADisk: char): <b>String</b>; <b>var</b>   SerialNum: dword;   VolumeName, FSName: array [0..255] of char;   MaximumFNameLength,   FileSystemFlags: dword; <b>begin</b>    Result := '';    <b>if</b> GetVolumeInformation( PChar( ADisk + <font color="royalblue">':\'</font> ),                             VolumeName, SizeOf( VolumeName ),                             @SerialNum,                             MaximumFNameLength,                             FileSystemFlags,                             FSName, SizeOf( FSName ) ) <b>then</b>    Result := Format( <font color="royalblue">'%.8x'</font>, [SerialNum] ); <b>end</b>;    <b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>begin</b>    ShowMessage( GetHDDSerialNumber( <font color="royalblue">'c'</font> ) ); <b>end</b>;</font>

[AXS]

Спасибо, попробую

[4kusNick]

Получая SN тома, можно очень сильно обломаться, т.к. при каждом форматировании или при переразбивке диска, этот СН ТЕРЯЕТСЯ!

Вот пример получения Заводского СН самого Жесткого Диска:

Функция получает серийный номер первого физического диска IDE (не серийный номер тома!).
Используется S.M.A.R.T. API, а под Windows NT/2K/XP запрос производится не напрямую к диску,
а через miniport драйвер контроллера, что позволяет читать серийный номер не имея прав администратора.
Функция может не работать, если первый контролер в системе не ATA или если первое устройство
не является винчестером, который поддерживает SMART (современные винчестеры поддерживают).
Если Вы хотите получить другие параметры диска/других дисков, то смотрите пример IdeInfo2 с моего сайта.
На Windows 9x требует наличия драйвера smartvsd.vxd (должен быть в стандартной поставке),
просто скопируйте его в \windows\system\iosubsys и перезагрузите компьютер.

Зависимости: Windows, SysUtils
Автор: Alex Konshin, akonshin@earthlink.net, Boston, USA
Copyright: http://home.earthlink.net/~akonshin/index.htm
Дата: 30 декабря 2002 г.
************************************************** *** }

Код:

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 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181

function GetIdeDiskSerialNumber: string; type   TSrbIoControl = packed record     HeaderLength: ULONG;     Signature: array[0..7] of Char;     Timeout: ULONG;     ControlCode: ULONG;     ReturnCode: ULONG;     Length: ULONG;   end;   SRB_IO_CONTROL = TSrbIoControl;   PSrbIoControl = ^TSrbIoControl;     TIDERegs = packed record     bFeaturesReg: Byte; // Used for specifying SMART "commands".     bSectorCountReg: Byte; // IDE sector count register     bSectorNumberReg: Byte; // IDE sector number register     bCylLowReg: Byte; // IDE low order cylinder value     bCylHighReg: Byte; // IDE high order cylinder value     bDriveHeadReg: Byte; // IDE drive/head register     bCommandReg: Byte; // Actual IDE command.     bReserved: Byte; // reserved for future use. Must be zero.   end;   IDEREGS = TIDERegs;   PIDERegs = ^TIDERegs;     TSendCmdInParams = packed record     cBufferSize: DWORD; // Buffer size in bytes     irDriveRegs: TIDERegs; // Structure with drive register values.     bDriveNumber: Byte; // Physical drive number to send command to (0,1,2,3).     bReserved: array[0..2] of Byte; // Reserved for future expansion.     dwReserved: array[0..3] of DWORD; // For future use.     bBuffer: array[0..0] of Byte; // Input buffer.   end;   SENDCMDINPARAMS = TSendCmdInParams;   PSendCmdInParams = ^TSendCmdInParams;     TIdSector = packed record     wGenConfig: Word;     wNumCyls: Word;     wReserved: Word;     wNumHeads: Word;     wBytesPerTrack: Word;     wBytesPerSector: Word;     wSectorsPerTrack: Word;     wVendorUnique: array[0..2] of Word;     sSerialNumber: array[0..19] of Char;     wBufferType: Word;     wBufferSize: Word;     wECCSize: Word;     sFirmwareRev: array[0..7] of Char;     sModelNumber: array[0..39] of Char;     wMoreVendorUnique: Word;     wDoubleWordIO: Word;     wCapabilities: Word;     wReserved1: Word;     wPIOTiming: Word;     wDMATiming: Word;     wBS: Word;     wNumCurrentCyls: Word;     wNumCurrentHeads: Word;     wNumCurrentSectorsPerTrack: Word;     ulCurrentSectorCapacity: ULONG;     wMultSectorStuff: Word;     ulTotalAddressableSectors: ULONG;     wSingleWordDMA: Word;     wMultiWordDMA: Word;     bReserved: array[0..127] of Byte;   end;   PIdSector = ^TIdSector;   const   IDE_ID_FUNCTION = $EC;   IDENTIFY_BUFFER_SIZE = 512;   DFP_RECEIVE_DRIVE_DATA = $0007C088;   IOCTL_SCSI_MINIPORT = $0004D008;   IOCTL_SCSI_MINIPORT_IDENTIFY = $001B0501;   DataSize = sizeof(TSendCmdInParams) - 1 + IDENTIFY_BUFFER_SIZE;   BufferSize = SizeOf(SRB_IO_CONTROL) + DataSize;   W9xBufferSize = IDENTIFY_BUFFER_SIZE + 16; var   hDevice: THandle;   cbBytesReturned: DWORD;   pInData: PSendCmdInParams;   pOutData: Pointer; // PSendCmdInParams;   Buffer: array[0..BufferSize - 1] of Byte;   srbControl: TSrbIoControl absolute Buffer;     procedure ChangeByteOrder(var Data; Size: Integer);   var     ptr: PChar;     i: Integer;     c: Char;   begin     ptr := @Data;     for i := 0 to (Size shr 1) - 1 do     begin       c := ptr^;       ptr^ := (ptr + 1)^;       (ptr + 1)^ := c;       Inc(ptr, 2);     end;   end;   begin   Result := '';   FillChar(Buffer, BufferSize, #0);   if Win32Platform = VER_PLATFORM_WIN32_NT then   begin // Windows NT, Windows 2000     // Get SCSI port handle     hDevice := CreateFile('\\.\Scsi0:', GENERIC_READ or GENERIC_WRITE,       FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);     if hDevice = INVALID_HANDLE_VALUE then       Exit;     try       srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL);       System.Move('SCSIDISK', srbControl.Signature, 8);       srbControl.Timeout := 2;       srbControl.Length := DataSize;       srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY;       pInData := PSendCmdInParams(PChar(@Buffer) + SizeOf(SRB_IO_CONTROL));       pOutData := pInData;       with pInData^ do       begin         cBufferSize := IDENTIFY_BUFFER_SIZE;         bDriveNumber := 0;         with irDriveRegs do         begin           bFeaturesReg := 0;           bSectorCountReg := 1;           bSectorNumberReg := 1;           bCylLowReg := 0;           bCylHighReg := 0;           bDriveHeadReg := $A0;           bCommandReg := IDE_ID_FUNCTION;         end;       end;       if not DeviceIoControl(hDevice, IOCTL_SCSI_MINIPORT, @Buffer,         BufferSize, @Buffer, BufferSize, cbBytesReturned, nil) then         Exit;     finally       CloseHandle(hDevice);     end;   end   else   begin // Windows 95 OSR2, Windows 98     hDevice := CreateFile('\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0);     if hDevice = INVALID_HANDLE_VALUE then       Exit;     try       pInData := PSendCmdInParams(@Buffer);       pOutData := PChar(@pInData^.bBuffer);       with pInData^ do       begin         cBufferSize := IDENTIFY_BUFFER_SIZE;         bDriveNumber := 0;         with irDriveRegs do         begin           bFeaturesReg := 0;           bSectorCountReg := 1;           bSectorNumberReg := 1;           bCylLowReg := 0;           bCylHighReg := 0;           bDriveHeadReg := $A0;           bCommandReg := IDE_ID_FUNCTION;         end;       end;       if not DeviceIoControl(hDevice, DFP_RECEIVE_DRIVE_DATA, pInData,         SizeOf(TSendCmdInParams) - 1, pOutData, W9xBufferSize,         cbBytesReturned, nil) then         Exit;     finally       CloseHandle(hDevice);     end;   end;   with PIdSector(PChar(pOutData) + 16)^ do   begin     ChangeByteOrder(sSerialNumber, SizeOf(sSerialNumber));     SetString(Result, sSerialNumber, SizeOf(sSerialNumber));   end; end;

Пример использования:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var   s: string;   rc: DWORD; begin   s := GetIdeDiskSerialNumber;   if s = '' then   begin     rc := GetLastError;     if rc = 0 then       WriteLn('IDE drive is not support SMART feature')     else       WriteLn(SysErrorMessage(rc));   end   else     WriteLn('Disk serial number: ''', s, ''''); end.

[AXS]

Не идёт у меня этот код и всё! Я тут исходник скинул мож посмотрите?
Писал на Delphi 7. В архиве лежит скриншот с ошибкой, не пойму что он этим хочет сказать