Вопрос по компам а точнее софту


народ хелпните из под делфей надо как то дотянутса до железа - типа номер диска , процессора , биоса вообщем чего уникального .......
пока чего надыбал -
// Информация о компьютере.procedure TfmMain.HardwareInfo;var Size : cardinal; PRes : PChar; BRes : boolean; lpSystemInfo : TSystemInfo;begin // Имя компьютера Size := MAX_COMPUTERNAME_LENGTH + 1; PRes := StrAlloc(Size); BRes := GetComputerName(PRes, Size); if BRes then laCompName_.Caption := StrPas(PRes); // Имя пользователя Size := MAX_COMPUTERNAME_LENGTH + 1; PRes := StrAlloc(Size); BRes := GetUserName(PRes, Size); if BRes then laUserName_.Caption := StrPas(PRes); // Процессор GetSystemInfo(lpSystemInfo); laCPU_.Caption := 'класса x' + IntToStr(lpSystemInfo.dwProcessorType);end;
могет кому пригодитса и еще может где поискать поспрашать знающих людей можно ????
 
Удачи



Ты дельфей увлекаешься? Я тоже. Еще с 3-й версии...
...тока никак собраться и изучить не получается.
Побегали? Теперь попрыгаем!(с) Sayonara

Так чего увлекатса наливай и пей в смысле делай....
дальше война план покажет....а увлекатса я ей не увлекался просто прижалло за два месяца пописывыать начал...сейчас актуально защититса вот и надо програмно до чего уникального в машине дотянутса....
Удачи

Как сказал один мудрец...
...если пол года упорно заниматься каким то предметом, то можно стать крутым специалистом.
Побегали? Теперь попрыгаем!(с) Sayonara

Гы нашел альтернативный путь считать биос целиком и неразбиратса
в купе с типом процессора естьм я так понимаю псевдоуникальный ключ..если интересно могу исходник бросить....

Крутой оказывается автомобильчик)))

12 2003-10-26

Сейчас слушал по авторадио интервью с Федоровым (бывший главный ГАЙ)...

6 2003-10-24

2 Пиночет. ( а анекдот читать всем :-)

5 2003-10-24

Не, народ, а НА САМОМ ДЕЛЕ как это будет?!

8 2003-10-24

Ха-ха !!! Привет!!! Прорвемся!!!!!!!!!!! (пока есть настроение)

12 2003-10-24

Давление в колесе

21 2003-10-24

ВСЕГДА в наличии ТЮНИНГОВЫЙ АЭРОДИНАМИЧЕСКИЙ ОБВЕС на BMW E-34, E-38 и E-39 !

6 2003-10-24

про диски: 14 лучше или 13 на 2109?

17 2003-10-24

зимние покрышки

8 2003-10-28

Лампочка уровня масла начинает светиться...

23 2003-10-27

no comments

8 2003-10-24

Продажа популярных автомобилей