Banyak penulis berbagi perangkat lunak diprogram menggunakan Delphi. Lakukan sendiri.
Program ini menghapus kodenya sendiri sebagai berikut:
Prosedur Killself;
var
F: TextFile;
Mulai
AssignFile (f, ''./Killme.bat ''); Buat file kelelawar baru di direktori program
Tulis ulang (f); // Mulai tulis konten ke file kelelawar ini
writeeln (f, ''@echo off '');
writeeln (f, '': loop '');
writeeln (f, ''
writeeln (f, '' jika ada ./file.exe goto loop '');
writeeln (f, ''
CloseFile (f); // Akhir dari Konten Menulis
Winexec ('' ./ Killme.bat '', SW_HIDE);
Tutup;
akhir;
Kami juga dapat menggunakan Delphi untuk memanggil informasi BIOS untuk mengenkripsi kode pendaftaran perangkat lunak bersama. untuk memperbaiki informasi BIOS dienkripsi. Kode terperinci adalah sebagai berikut:
Prosedur getBiosinfo;
Mulai
lblmainboardbiosname.caption: =^i+string (pchar (ptr ($ fe061))));
lblmainboardbioscopyright.caption: =^i+string (pchar (ptr ($ fe091))));
lblmainboardbioSdate.caption: =^i+string (pchar (ptr ($ ffff5)));
lblmainboardbiosserialno.caption: =^i+string (pchar (ptr ($ fec71))));
akhir;
Tambahkan program ini ke program Anda dan Anda bisa mendapatkan serangkaian informasi tentang Motherboard BIOS, di antaranya lblmainboardbiosname, lblmainboardbioscopyright, lblmainboardbiosdate dan lblmainboardbiosserialno semuanya tlabel.