Cara Mengetahui Serial Number Motherboard dengan Delphi

Cara Mengetahui  Serial Number Motherboard dengan Delphi  adalah suatu yang sangat penting untuk diketahui dalam kaitannya dengan Cara Melindungi Program Dari Pembajakan. Karena dengan memanfaatkan Serial Number pada Motherboard pada computer kita sebagai programmer Delphi dapat menciptakan Serial number yang unik untuk masing masing computer yang berbeda, mengenai hal ini dapat anda baca di  Cara Melindungi Program Dengan Serial Number.  Adapun  Cara Mengetahui  Serial Number Motherboard dengan Delphi adalah dengan membuat sebuah Function  ( Fungsi pada Delphi). Namun sebelum membuat Function , Anda  harus  mengimport Microsoft WMIScripting Library , Dengan cara  masuk ke menu  Component-Import Component Kemudian Pilih  Import type library. Perhatikan gambar berikut:

Akan muncul window dialog pilihan, Kemudian Pilih  Import type library.kemudian tekan Next sampai muncul lagi windows dialog seperti berikut:

Pilih Microsoft WMIScripting Library kemudian klik Next - Next dan seterusnnya dan dilanjutkan dengan Proses seperti  Proses Install Komponen. Proses ini akan menghasilkan sebuah unit  bernama

WbemScripting_TLB.dcu tersimpan di folder library delphi anda bersama unit unit lainnya

Langkah Selanjutnya adalah membuat unit seperti berikut ini:

 yang ini buat di Copy Paste:

uses
  ActiveX,
  WbemScripting_TLB;

{$R *.dfm}

Function  Baca_SN_Mainboard:string;
var
  WMIServices : ISWbemServices;
  Root        : ISWbemObjectSet;
  Item        : Variant;
begin
  WMIServices := CoSWbemLocator.Create.ConnectServer('.', 'root\cimv2','', '', '', '', 0, nil);
  Root  := WMIServices.ExecQuery('Select SerialNumber From Win32_BaseBoard','WQL', 0, nil);
  Item := Root.ItemIndex(0);
  Result:=VarToStr(Item.SerialNumber);
end;

Cara Pakenya tinggal panggil Functionnya misalnya seperti berikut:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=BacaSNMainboard;
end;

Demikian Postingan saya kali ini tentang Cara Mengetahui  Serial Number Motherboard dengan Delphi  semoga bermanfaat bagi semua programmer delphi. Jika ada pertanyaan jangan ragu bertanya pada kolom komentar. Jika ada kritik dan saran dipersilahkan juga menulisnya pada kolom komentar.

Salam Delphi.