Selasa, 06 September 2016

Cara Membuat Program Pendeteksian Versi Windows Dengan Delphi 7

Selasa, 06 September 2016 - www.indoblog.me Ok Sobat blogger dan sobat delphier indonesia berikut adalah Tutorial sederhana Cara Membuat Program Pendeteksian Versi Windows Dengan Delphi 7 sebenarnya cara membaca dan mengethaui serial version os windows itu sangat mudah caranya, tetapi kita sekarang akan mencoba menjelaskan bagaimana kalau pendeteksian tersebut kita implementasikan ke sebuah program dan disini kita akan belajar menggunakan delphi atau pascal dan anda juga bisa menggunakan vb atau visual basic dll hanya saja setiap bahasa program pasti memiliki kekurangan dan keunggulan masing-masing.

Lihat Juga: Cara Membuat SSH Tunneling CMD Bitvise Dengan Delphi 7 Terbaru 2016

Inilah Cara Membaca Serial Key Windows Dengan Delphi dan Cepat


Bagi sebagian programmer pemula atau programmer yang baru belajar hal-hal membuat program program sederhana ini memang sangat dibutuhkan sekali terutama bagi anda yang sedang menekuni dunia ini maka anda sudah sepantasnya sudah mengetahui bagaimana konfigurasi membaca registry system windows dengan delphi dan lain sebagainya.

Karena untuk pembuatan program ini adalah menggunakan registry system windows untuk pembacaannya , okelah biar tidak lama lagi silahkan langsung disimak saja tutorial cara membaca version os windows dibawah ini dan silahkan dipraktekan.

1. Pada langkah yang pertama silahkan bukan program delphi anda lalu kemudian silahkan tambahkan 1 buah label untuk pembacaannya.

cara melihat product key windows 8 yang sudah terinstall

2. Yang kedua kemudian silahkan tambahkan Uses Registry; dibawah implementation kemudian dibawah {$R *.dfm} tambahkan coding dibawah ini, untuk contohnya bisa sobat perhatikan gambar saja.

function GetWindowsVersion: string;
var
  VerInfo: TOsversionInfo;
  PlatformId, VersionNumber: string;
  Reg: TRegistry;
begin
  VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);
  GetVersionEx(VerInfo);
  // Detect platform
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  case VerInfo.dwPlatformId of
        VER_PLATFORM_WIN32s:
          begin
                PlatformId := 'Windows 3.1';
          end;
        VER_PLATFORM_WIN32_WINDOWS:
          begin
                // Registry
                Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', False);
                PlatformId      := Reg.ReadString('ProductName');
                VersionNumber := Reg.ReadString('VersionNumber');
          end;
        VER_PLATFORM_WIN32_NT:
          begin
                Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);
                PlatformId      := Reg.ReadString('ProductName');
                VersionNumber := Reg.ReadString('CurrentVersion');
          end;
  end;
  Reg.Free;
  Result := PlatformId + ' (version ' + VersionNumber + ')';
end;

cara mengetahui product key windows 7 ultimate yang sudah terinstal

3. Kemudian yang terakhir double klik Form Kosong atau klik saja formnya lalu masukan coding dibawah ini:

Label1.Caption := 'System: '+GetWindowsVersion;

pengertian sistem operasi windows 7 ultimate

4. Yang terakhir silahkan tekan F9 atau RUN saja maka kira-kira hasilnya akan nampak seperti dibawah ini, bagaimana mudah bukan?

contoh makalah cara menginstal windows 7

Ok dan bagi sahabat dan teman-teman semuanya yang kebetulan gagal membuatnya admin juga sudah siapkan contoh source codenya dan silahkan bisa diambil pada link DISINI dan silahkan dimplementasikan lagi mungkin akan anda gunakan dan gabungkan dengan program yang lainnya.

Tutorial Lainnya: Cara Membuat Aplikasi Enscryption Descryption Dengan Borland Delphi

Ok sobat terima kasih sudah membaca tips Cara Membuat Program Pendeteksian Versi Windows Dengan Delphi 7 Terbaru 2016 semoga masih bermanfaat untuk anda dan menjadi pelajaran dasar yang berharga buat anda semuanya terima kasih, Wassalam.


EmoticonEmoticon