[FreePASCAL] - Citanje PRAVOG serijskog broja HARD drajva?

Pre svega da kazem da sam koristio pretragu [es], pretrazio internet uzduz i popreko i nisam nista pronasao, sem ovoga...

Stvari stoje ovako, trebam da procitam serijski broj Hard drajva(moze i Procesor ili Bios), e sad to nije problem uraditi pod Windows-om(primera za to ima svugde), ali meni treba to u DOS-u. Na internetu sam naisao samo na jedan primer ali je maler(bar za mene) to sto je pisan u pascal-u a ja znam/poznajem samo Basic i C, tako da ne umem da provalim sta se radi u ovom primeru(hddinfo.pas - skinuo sam ga sa freepascal.org). Naime nije mi jasna komanda PORT[adresa]. Pa bih zamolio nekog da mi malo pojasni ako moze. Ima primer uradjen u C-u(poziva neki vxd - znaci samo Windows) pa vam i njega postavljam. Ako moze lepo bi bilo da se ovaj .pas kod prevede u BASIC, C ili Pseudo kod.

Unapred hvala!

I ponavljam ovo je za DOS da ne bude zabune.
I nije ono sto se dobija sa api f-jom getVolumeInfo, vec serijski broj koji upisuje proizvodjac.

Ne uspevam da nađem help za TurboPascal, vidim da ima objašnjenja za Port na netu (npr http://www.doc.ic.ac.uk/~ih/doc/par/doc/data/tp.html).
Verovatno i FreePascal ima odgovarajuću Port komandu pa možeš u njemu pogledati ako nemaš TurboPascal. Ono što možeš pokušati je da kompajliraš unit kao .obj koji ćeš onda ulinkovati u svoj C program.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Na linku koji vec znas (jer si RAR-ovao source):
http://www.winsim.com/diskid32/diskid32.html
... se nalazi po mojim saznanjima najkompletniji javni primer za citanje hardverskog broja HD-a. Cak ni on nije dobar, jer se ne snalazi sa lepezom SATA diskova, a ni onima kod kojih je RAID u pitanju.

Primer i jeste konzolni, a ako me secanje dobro sluzi, taj VXD koji pominjes sluzi samo ako je Win95/98/ME u pitanju.

BTW: Kada pominjes DOS, da li mislis na Command Prompt prozor koji si pozvao iz Windowsa (i recimo maksimizovao preko PIF-a) ili zaista ulazis u sirovi DOS, pre Win OS-a?

Šta se dogadja sa primerom diskid32.exe na toj masini kada podmetnes taj VXD?

P.S.
Za onaj drugi, Pascal kod cisto sumnjam da je 'bolji' od ovog u C/C++ jer sam stekao utsiak da je sve to oko pristupa hardveru daleko slozenije od koda koji je pokazan.

Mislim na sirovi dos, nema Windowsa.

Ali mislim da bi ovaj pascal program trebao da radi, ali sigurno ne moze da radi pod (NT, 2K, XP, Vista) jer oni ne dozvoljavaju dos programima da direktno pristupaju hardware-u.

Hvala u svakom slucaju

Ovaj Pascal program moze da se prevede samo uz pomoc FreePASCAL/GO32V2 u sirovom DOS-u.

_{Da sam mislio na CMD pomprit, rekao bih Win32 konzolna aplikacija}

Au, momci i devojke sa Pascal / Delphi / Kylix foruma sad ste se obrukali... pa zar niko nije upoznat sa freepascal-om?

Ili ne zelite da mi odgovorite?

Ajde postavite neko pitanje na VB & ASP forumu, sa nekim "zajebanim resenjem" - odgovor stize najkasnije za 3-4 dana...

Nisam zeleo da vas uvredim, samo da isprovociram nekog da "ispljune" odgovor...

> Au, momci i devojke sa Pascal / Delphi / Kylix foruma sad ste se obrukali... pa zar niko nije upoznat sa freepascal-om?

Kakve to ima veze, ti tražiš prevod na C ili VB i to prilično retkih i compiler specific funkcija. Freepascal dolazi uz source, pogledaj kako je implementirana funkcija, napravi .obj fajl i ulinkuj ga direktno u C ili kompajliraj program i ASM prenesi u C.

> Ili ne zelite da mi odgovorite?

Ovakav ton sasvim sigurno umanjuje šanse.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html