Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как узнать номер винта?? [D6, Win95/98, WinME, NT4, WinXP]

c0pyc@t © (2002-08-27 08:36:00)
Как узнать номер винта??

Ученик (2002-08-27 11:22:00) [1]
Есть еще вариант через 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 адрес

Ученик (2002-08-27 11:05:00) [2]
В реестре похоже серийного номера нет (своего не нашел), поэтому
Ученик © (27.08.02 09:07),

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

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

c0pyc@t (2002-08-27 10:46:00) [3]
Это все конешно хорошо, но немогли бы вы мне подсказать какую взять информацию о компе которая на других не втретится, короче уникальный ID машины, ip не предлогать

Song (2002-08-27 10:42:00) [4]
GetVolumeInformation()

Ученик (2002-08-27 10:42:00) [5]
http://delphi.mastak.ru/cgi-bin/search.pl?words=MiTeC&n=103

c0pyc@t (2002-08-27 10:38:00) [6]

> Ученик ©

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

Ученик (2002-08-27 10:28:00) [7]
Она там обычно остается, даже если винта уже нет

c0pyc@t (2002-08-27 10:24:00) [8]
А нет ли какой нибудь информации о винте в реестре?

c0pyc@t (2002-08-27 09:36:00) [9]
спасибо

Ученик (2002-08-27 09:07:00) [10]
http://www.sources.ru/cpp/system/devid.shtml

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »