AI摘要

这段代码是一个Delphi程序,用于检测是否有调试器存在。如果检测到调试器,程序会显示一个消息框提示“请不要调试我!”,然后终止应用程序。代码中使用了LoadLibrary和GetProcAddress函数来加载kernel32.dll库并获取IsDebuggerPresent函数的地址。
这段代码是一个Delp

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;    
   
  //anti-loader

※相关文章推荐※



最后修改:2009 年 08 月 16 日
点赞的人是最酷的