Znalazłem ciekawy opis, jak pobrać BIOS serial number
http://www.latiumsoftware.com/en/delphi/00050.php,
ale kiedy próbowałem to zastosować, wyskoczył mi błąd AccessViolation w linii if p^ in [#33..#126, #169, #184] (po wcześniejszym p := PChar(Ptr($FE000));). To samo dzieje się przy próbie wykonania SetString(s, PChar(Ptr($F0000)), $10000);
Co trzeba zrobić, żeby móc skorzystać z tych funkcji?
0
0
Na dole strony
WARNING: The code presented in this article won't work on Windows NT/2000, ...
0
hmm.. kiedys widzialem komponent ktory podawal troche informacji o plycie glownej i biosie.
poszukaj.
0
Osobiście sugerowałbym wykorzystanie mechanizmów WMI
przykład na szybko:
http://www.delphi3000.com/articles/article_3118.asp
0
A ja dodatkowo zasugeruję czytać dokładnie artykuły a nie tylko kopiować kod! Na dole jest wyraźnie napisane:
WARNING: The code presented in this article won't work on Windows NT/2000, although some information about the BIOS and the system hardware can be found in the Windows Registry under the key HKEY_LOCAL_MACHINE\Hardware\Description\System, but not enough to identify a machine as far as I know.
a ponieważ artykuł pochodzi z 2000 roku łatwo się domyślić że nie działa także w nowszych systemach.