- #DELPHI READ HARD DISK SERIAL NUMBER SERIAL NUMBER#
- #DELPHI READ HARD DISK SERIAL NUMBER CODE#
- #DELPHI READ HARD DISK SERIAL NUMBER MAC#
That is the last solution that I find it for four years of searching.
#DELPHI READ HARD DISK SERIAL NUMBER SERIAL NUMBER#
it is a number that fixed on external Hard Disk cover and It is very Difficult to depend on that because the component that I test is worked only with Win98, And Also The BIOS Component only worked with Win2000 / XP, So we don't have a component that worked with Poth Operating System.ģ- So What I do with my software I make the protection with Hard Disk Volume Serial Number and I store it Encrypted in the Database. because by some software you can copy this volume serial no and also you can change it, because it is a Logical Serial No, Not Physical.Ģ- So The Physical Hard Disk Serial No. , but it is a Volume Serial No That becomes when you make a format to the Hard Disk. Procedure TForm1.Button1Click(Sender : TObject) įor software protection I face the same problem, but I want to mention some points:ġ- The Hard Disk Serial no that you all talk about it, it is not a Serial No. NCB.ncb_buffer := := Byte(AdapterList.length) > 0 then IntToHex(Byte(Adapter.adap ter_addres s), 2) IntToHex(Byte(Adapter.adap ter_addres s), 2) + '-' +
#DELPHI READ HARD DISK SERIAL NUMBER MAC#
MAC Address example (works on Win2000 and XP for sure):įunction GetAdapterInfo(Lana: Char): String Unique indentifiers like MAC address, CPU serial number Most of the threads suggest it is not a very good idea to use these any way! SValue.Caption := IntToStr(CPUID and $f) MValue.Caption := IntToStr(CPUID shr 4 and $f) PValue.Caption := IntToStr(CPUID shr 12 and 3) įValue.Caption := IntToStr(CPUID shr 8 and $f) Label4.Caption := 'CPUID = ' + IntToHex(CPUID,8) Label3.Caption := 'CPUID = ' + IntToHex(CPUID,8) Serial DLL has already succeeded to get the Serial Number in Delphi, C++Builder, C, Visual. So this DLL is of great use, for example, you can use this serial number to create an machine id or encrypt number. As we all know, this serial number is unique in the world.
Label2.Caption := 'CPUID = ' + IntToHex(CPUID,8) You can use it to read the serial number of hard disk easily.
Label1.Caption := 'CPUID = ' + IntToHex(CPUID,8) Procedure TDemoForm.GetButtonClick(S ender: TObject) įor I := Low(CPUID) to High(CPUID) do CPUID := -1 MOV AL,True GetCPUID : TCPUID assembler register įunction GetCPUVendor : TVendor assembler register Procedure GetButtonClick(Sender: TObject) įunction IsCPUID_Available : Boolean register (c) Alex Abreu, 1997 - IsCPUID_Available source and idea // (c) NPS, 1997 - Idea, realisation, adoptation IsCPUID_Available) //
#DELPHI READ HARD DISK SERIAL NUMBER CODE#
Well, that code I mentioned uses an awful lot of assembly Im sure theres an assembly function that returns something you can convert to the specific processor type string.
0 kommentar(er)
