[es] - Kako da procitam ser.num harda (using Delphi)?

djnesha
nenad cvetkovic
nis

Član broj: 16569
Poruke: 172
*.dial.InfoSky.Net

Profil

Kako da procitam ser.num harda (using Delphi)?

^{10.01.2004. u 14:16}

kako da preko delpija procitam serijski broj nekog hardvera na racunaru (hd, graficke)? naravno, zbog zastite programa od kloniranja hd-a.

mess with the best?

^{10.01.2004. u 14:16}

Crazy Mix
Nemanja Avramovic
Mladenovac

Član broj: 7103
Poruke: 331
*.telekom.yu

ICQ: 266136396
Sajt: www.quadrasoft.co.sr

Profil

Re: Kako da procitam ser.num harda (using Delphi)?

^{11.01.2004. u 09:56}

Evo ti za HDD:

Code:

function GetDiskSerialNumber(Disk: char): string;
var
VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags: DWORD;
SerialNumber: string;
begin

GetVolumeInformation(PChar(Disk + ':\'),
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0);
SerialNumber := Format('%.4X-%.4X', [HiWord(VolumeSerialNumber), LoWord(VolumeSerialNumber)]);

Result := SerialNumber;

end;

Nadam se da ce pomoci... ;-)

Avram,
http://www.eyesburn.co.sr/

^{11.01.2004. u 09:56}

djnesha
nenad cvetkovic
nis

Član broj: 16569
Poruke: 172
*.dial.InfoSky.Net

Profil

Re: Kako da procitam ser.num harda (using Delphi)?

^{11.01.2004. u 13:42}

sad cu da ga kompajliram. hvala!

mess with the best?

^{11.01.2004. u 13:42}

dRock9
Kragujevac - Beograd

Član broj: 4217
Poruke: 54
62.108.111.*

Profil

Re: Kako da procitam ser.num harda (using Delphi)?

^{12.01.2004. u 15:08}

Odmah da ti kazem nece ti mnogo pomoci ovo objasnjenje.
Ja sam se patio sa tim (naravno znog zastite od kopiranja svog software-a) i na kraju u se i u svoje kljuse.

Navedeno resenje cita samo dodeljeni serijski broj particije (koju dodeljuje format u windozetu ili bese fdisk, zaboravio sam). Uzmes diskedit ili lican program i izmenices ga vrlo jednostavno.

Ja sam napravio komponentu (koju planiram da izbacim na net kao freeware) koja cita Firmware diska (znaci podatke proizvodjaca : model, proizvodjac, revizija, velicina diska, velicina kesa i naravno HDD serial), samo sto sam ostao bez neta i sve sto radim radim u net cafe-u gde ne mogu nista da prebacim od podataka.

Baci mi mail na loggzy@yahoo.com ili privatnu poruku pa da ti nekako posaljem na mail, ali ces morati da pricekas par dana dok negde ne nadjem normalan pristup netu. Glupo mi je da saljem attachment na forum i da nepotrebno zauzimam prostor.

^{12.01.2004. u 15:08}

Crazy Mix
Nemanja Avramovic
Mladenovac

Član broj: 7103
Poruke: 331
*.telekom.yu

ICQ: 266136396
Sajt: www.quadrasoft.co.sr

Profil

Re: Kako da procitam ser.num harda (using Delphi)?

^{13.01.2004. u 18:24}

daj onda posalji i meni... ;-) (imas tu negde mail)

BTW, evo neka moja amaterska komponenta, ali radi, ono...

P.S. Ako nekome treba demo... nek se snadje... ;-)

Avram,
http://www.eyesburn.co.sr/

Prikačeni fajlovi

cregister1.zip - 3.63k

^{13.01.2004. u 18:24}

dRock9
Kragujevac - Beograd

Član broj: 4217
Poruke: 54
217.26.76.*

Profil

Re: Kako da procitam ser.num harda (using Delphi)?

^{19.01.2004. u 13:56}

Nisam bas stigo da upakujem u neki lep VCL to ce malko kasnije ali verzija koju ja koristim se nalazi na sledecoj adresi:

http://galeb.etf.bg.ac.yu/~nine/HDInfo.zip

Procitajte readme.txt za detalje a tu je i source pa se nadam da ce sve biti jasno.

Pozdrav !

^{19.01.2004. u 13:56}

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, Master-Develop
Stara Pazova

Član broj: 6155
Poruke: 487
*.ptt.yu.

ICQ: 346697685
Sajt: www.master-develop.com

Profil

Re: Kako da procitam ser.num harda (using Delphi)?

^{23.01.2004. u 10:13}

Koristio sam ovu tvoju komponentu za jedan program i mogu ti reci da radi odlicno, sve do jednom... Naime na jednom kompu nece da procita ser. br. HDD-a. Nemam pojma zasto, komp nije nimalo "egzotican" u pitanju je najobicniji hardver, koji je svojevremeno bio najprodavaniji (komp je u klasi PII tako da hardver datira iz tog doba od kada uostalom datira i moj komp, tj. komp na kojem sam pravio taj program).

Any hints?

ex Strog

http://www.neverne-bebe.com/

^{23.01.2004. u 10:13}

dRock9
Kragujevac - Beograd

Član broj: 4217
Poruke: 54
217.26.76.*

Profil

Re: Kako da procitam ser.num harda (using Delphi)?

^{03.02.2004. u 17:36}

Tek sad sam video odgovor.

Ne verujem da je hardver u pitanju. Reci mi koji je sistem na njemu (9x ili NT) i kako se tacno manifestuje. Vrlo me zanima, obzirom da i ja koristim modul koji sam poslao i do sada nisam imao problema, ali ne bih zeleo da ih nabavljam. Cela stvar je jos uvek u test verziji tako da je svasta moguce.

Mala napomena: Nadam se da si stavio ide21201.vxd u isti direktorijum ako je u pitanju Win 95/98/Me ili sta vec postoji na 9x arhitekturi. Ja licno sam modul testirao na Win2000, XP, 98 i Me i svuda je radio. Ukoliko je u pitanju bilo koja NT arhitektura (Win NT, 2K, XP) molim te mi reci da li si imao administratorske privilegije pri pokretanju programa.

Uz poruku sam prikacio dva programcica, molim te iprobaj da li ti daju potrebne informacije. HDInfoT koristi moj modul i prikazuje samo ser. num, a DiskID32.exe je originalni program koji je izbacila firma WinSim (autor Lynn McGuire) koji sam koristio pri izradi modula i daje detaljne podatke. ZA WIN9X sisteme IDE21201.VXD je OBAVEZAN !!!! Uskoro cu poraditi na izbegavanju vxd-a, odnosno implementiranju ovih rutina u delphi-u.

Obavezno mi javi da bih nasao gresku, ako je ima.

Hvala na informaciji,
Pozdrav !

Prikačeni fajlovi

hdinfo.zip - 41.26k

^{03.02.2004. u 17:36}

Vdjuric
Vladimir Djuric
Beograd

Član broj: 20863
Poruke: 64
*.mobtel.co.yu

Sajt: www.marettasoftware.com

Profil

Re: Kako da procitam ser.num harda (using Delphi)?

^{16.02.2004. u 01:01}

Ako nije problem posalji i meni taj freeware code za firmware hdda :)

pozdrav

^{16.02.2004. u 01:01}

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, Master-Develop
Stara Pazova

Član broj: 6155
Poruke: 487
*.ptt.yu

ICQ: 346697685
Sajt: www.master-develop.com

Profil

Re: Kako da procitam ser.num harda (using Delphi)?

^{16.02.2004. u 15:29}

E, sorry, tek sada sam smogao malo vremena da se posvetim ovome malo ozbiljnije ( znate kako je, pritegli ispiti ;) )... Sto se tice onog kompa na kom nije citao serijski HDD-a, nemam pojma sta se deslo taj put, posto mi je drugi put sve OK procitao ( znaci false allarm :) )...

Jos jednom sorry sto mi je ovoliko trebalo da odgovorim, i hvala na odlicnoj komponenti!

ex Strog

http://www.neverne-bebe.com/

^{16.02.2004. u 15:29}

Bojann
Zrenjanin

Član broj: 13255
Poruke: 197
*.dialup.neobee.net.

Profil

Re: Kako da procitam ser.num harda (using Delphi)?

^{17.02.2004. u 01:53}

evo ti link bas za seriial number:

http://greatis.com/delphi/drives-hddserial.html

^{17.02.2004. u 01:53}