AnaK KoS EnTerTaiNmEnT

function GetHardDiskSerial(const DriveLetter: Char): string; var NotUsed: DWORD; VolumeFlags: DWORD; VolumeInfo: array[0..MAX_PATH] of Char; VolumeSerialNumber: DWORD; begin   GetVolumeInformation(PChar(DriveLetter + ':\'),   nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,   VolumeFlags, nil, 0);   Result := Format('%d',[VolumeSerialNumber]) end; Function diatas digunakan untuk mendapatkan informasi serial harddisk yang kemudian dapat ditampilkan dalam nilai decimal (%d) dengan cara sederhana sebagai berikut : label1.Caption := '+GetHardDiskSerial('c')+'; Untuk memanfaatkan Serial Hardisk menjadi serial number sebuah produk aplikasi yang kita buat, caranya sangat mudah dan bervariasi, tergantung bagaimana cara kita meng-ENKRIPSI-nya. Perlukah teknik enkripsi yang rumit...? jawaban saya tidak perlu, contohnya sebagai berikut :   if FileExists('License.txt') then   begin     Sleep(1000);   ...

KATA PENGANTAR Puji dan syukur penulis panjatkan kehadirat Tuhan Yang Maha Esa yang telah memberikan hidayahnya sehingga penulis dapat menyelesaikan Laporan Praktek Kerja Lapangan yang berjudul “Perancangan Sistem Informasi pada Klinik DOKTER SPESIALIS Apotik Karisma dengan menerapkan Pemrograman Berorientasi Objek” ini dengan baik. Pada dasarnya tujuan pengajuan Proposal Penelitian ini adalah untuk memenuhi salah satu syarat memperoleh persetujuan untuk penulisan proposal pada Program Studi Sitem Informasi pada Sekolah Tinggi Ilmu Komputer Pelita Indonesia Pekanbaru. Adapun tanpa bantuan dari pihak lain mungkin penulis tidak dapat menyelesaikan proposal penelitian ini dengan baik. Oleh karena itu, pada kesempatan ini, penulis ingin menyampaikan rasa terima kasih yang sebesar-besarnya kepada pihak yang telah memberikan bantuan, petunjuk serta bimbingan yang bersifat membangun. Semoga semua bantuan yang diberikan mendapat balasan yang melimpah dari Tuhan Yang Maha Esa.  ...