请教delphi实现程序自效验

Question

请教前辈下该如何实现程序的自效验！delphi来实现！谢谢了！

Answer 1

那是指delphi的反调试机制……
procedure TForm1.FormCreate(Sender: TObject); 
var 
  isDebuggerPresent: function:Boolean; 
  DllModule: THandle; 
begin 
  DllModule := LoadLibrary('kernel32.dll'); 
  isDebuggerPresent := GetProcAddress(DllModule, 'IsDebuggerPresent'); 
     if isDebuggerPresent then 
  begin 
        MessageBox(self.Handle, '请不要调试我!', '抗议', 
                   MB_OK or MB_ICONASTERISK); 
  Application.Terminate; 
  end; 
end;