共享軟件作者中有很多是使用Delphi進行編程的，大家都不希望自己的軟件被注冊機破解吧，這里交給大家一個好方法，如果程序運行的時候發現有注冊機之類的程序就自己把自己刪除，這樣就可以在一定程度上防止注冊機。

   程序自己刪除自己的代碼如下所示：

   procedure KillSelf;

   var

   f:textfile;

   begin

   assignfile(f,''./killme.bat'');   //在程序目錄下新建一個bat文件

   rewrite(f); //開始向這個bat文件寫入內容

   writeln(f,''@echo off'');

   writeln(f,'':loop'');

   writeln(f,''del ""''+application.ExeName+''""'');

   writeln(f,''if exist ./file.exe goto loop'');

   writeln(f,''del ./killme.bat'');

   closefile(f); //寫入內容結束

   winexec(''./killme.bat'', SW_HIDE);   //調用刪除自己bat文件，

   close; //關閉自己

   end;

   我們還可以用Delphi調用Bios的信息用在共享軟件的注冊碼加密上面，當然，不能只用這個Bios的信息作注冊碼，這樣是非常容易被破解的，你自己需要設計一系列算法，來對Bios信息進行加密。詳細代碼如下：

   procedure GetBiosInfo;

   begin

   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)));

   end;

把這段程序加入到你的程序中，你可以獲得一系列主板Bios的信息，其中的lblMainBoardBiosName，lblMainBoardBiosCopyRight，lblMainBoardBiosDate和lblMainBoardBiosSerialNo都是TLabel。