本站创建于2006年,博主为Delphi老码农,暗黑忠实粉丝,主要用于学习经验分享
    • Delphi anti-loader

    • 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

      标签: none

    • 当前暂无评论 »

      • 发表评论: ( 注意:为了防止广告评论,本站链接已经启用nofollow)
      •   您的名字
      •   E-mail
      •   您的网址(选填)

Powered by Typecho)))   ICP:蜀ICP备05009250号