妖哥

这是从网上转载的，但是有的部分我改了一下。
我试用了，效果不错！

复制内容到剪贴板

代码:

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+MB_ICONWARNING);
    Application.Terminate; //我认为用Halt更猛
  end;
end;