Как узнать номер винта??

← →
c0pyc@t (2002-08-27 08:36) [0]

← →
Ученик (2002-08-27 09:07) [1]

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

← →
c0pyc@t (2002-08-27 09:36) [2]

спасибо

← →
c0pyc@t (2002-08-27 10:24) [3]

А нет ли какой нибудь информации о винте в реестре?

← →
Ученик (2002-08-27 10:28) [4]

Она там обычно остается, даже если винта уже нет

← →
c0pyc@t (2002-08-27 10:38) [5]

> Ученик ©

ну ну поподробней, мне бы просто нужна инфа которая практичести уникальна на компе

← →
Song (2002-08-27 10:42) [6]

GetVolumeInformation()

← →
Ученик (2002-08-27 10:42) [7]

http://delphi.mastak.ru/cgi-bin/search.pl?words=MiTeC&n=103

← →
c0pyc@t (2002-08-27 10:46) [8]

Это все конешно хорошо, но немогли бы вы мне подсказать какую взять информацию о компе которая на других не втретится, короче уникальный ID машины, ip не предлогать

← →
Ученик (2002-08-27 11:05) [9]

В реестре похоже серийного номера нет (своего не нашел), поэтому
Ученик © (27.08.02 09:07),

Насчет ID всегда есть проблемы (точнее особенности),
ID винчестера - необходимы права для обращения к драйверам или первоначальной установки своего на Windows NT (2000)
ID процессора начиная с Pentium 3,
ID сетевой карты (MAC Address) проблемы на ноутбуках, где периферия меняется, или ее вообще может не быть.

даже не знаю, что посоветовать :)

← →
Ученик (2002-08-27 11:22) [10]

Есть еще вариант через RPC, но я бы не пользовался

type
TUuidCreate = function (var GUID : TGUID) : HResult; stdcall;

function GenRpcID : string;
var
GUID : TGUID;
hLib : THandle;
UuidCreate : TUuidCreate;
begin
Result := "";
hLib := LoadLibrary("RPCRT4.DLL");
if hLib <> 0 then try
if Win32MajorVersion >= 5 then
@UuidCreate := GetProcAddress(hLib, "UuidCreateSequential")
else
@UuidCreate := GetProcAddress(hLib, "UuidCreate");
if (@UuidCreate <> nil) and (UuidCreate(GUID) = 0) then
Result := Copy(GuidToString(GUID), 26, 12)
finally
FreeLibrary(hLib)
end
end;

Если есть сетевая карта, то это будет MAC адрес

Как узнать номер винта?? Найти похожие ветки