1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Donation with Paypal!!!

    Go to your paypal account and send directly donation to [email protected]

    1 month - 10 $ - Standart VIP

    6 months - 20 $- Standart VIP

    1 year - 30 $- Standart VIP

    2 years - 50 $- Standart VIP

    Gold member for life - 150 $- Standart VIP

    High Vip (Standart VIP include) group please send PM or email to [email protected] for info

    After Donation please send email to [email protected]

  3. Donation Ways 2020


    Paysend
  4. Telegram
Dismiss Notice

Donation with Paypal!!!

Go to your paypal account and send directly donation to [email protected]

1 month - 10 $ - Standart VIP

6 months - 20 $- Standart VIP

1 year - 30 $- Standart VIP

2 years - 50 $- Standart VIP

Gold member for life - 150 $- Standart VIP

High Vip (Standart VIP include) group please send PM or email to [email protected] for info

After Donation please send email to [email protected]

Dismiss Notice
For open hidden message no need write thanks, thank etc. Enough is click to like button on right side of thread.

Serial Number

Discussion in 'Delphi Programming' started by saedi_mehdi, Dec 4, 2013.

  1. saedi_mehdi
    Offline

    saedi_mehdi DF Junior

    Drive Serial Number you get the code right?

    procedure TForm1.Button1Click(Sender: TObject);
    var
      VolumeName,
      FileSystemName    : array [0..MAX_PATH-1] of Char;
      VolumeSerialNo    : DWord;
      MaxComponentLength,
      FileSystemFlags    : Integer;
    begin
      GetVolumeInformation('C:\',VolumeName,MAX_  PATH,@VolumeSerialNo,
                          MaxComponentLength,FileSystemFlags,
                          FileSystemName,MAX_PATH);
      Memo1.Lines.Add('VName = '+VolumeName);
      Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8));
      Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength));
      Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4));
      Memo1.Lines.Add('FSName = '+FileSystemName);
    end;
     
  2. Proof
    Offline

    Proof Full Stack web developer engineer

    You can't use the Drive Serial Number as a product Serial Number, beacause it's very easy to get, just use it as key for a function to generate a unique serial number for each computer ;)
     
  3. darioosh2040
    Online

    darioosh2040 Guest

    thank you
     
  4. ana21675
    Offline

    ana21675 DF Member

    tq.. bro
     
  5. akosinald
    Offline

    akosinald DF Member

    agree with Proof. or you can use CPU ID instead.
     
  6. aqil81
    Online

    aqil81 Guest

    RE:

    thanks
     

Share This Page