Loading... procedure TForm1.FormCreate(Sender: TObject); <br /> var <br /> isDebuggerPresent: function:Boolean; <br /> DllModule: THandle; <br /> begin <br /> DllModule := LoadLibrary('kernel32.dll'); <br /> isDebuggerPresent := GetProcAddress(DllModule, 'IsDebuggerPresent'); <br /> if isDebuggerPresent then <br /> begin <br /> MessageBox(self.Handle, '请不要调试我!', '抗议',MB_OK or MB_ICONASTERISK); <br /> Application.Terminate; <br /> end; <br /> end; <br /> <br /> //anti-loader 相关文章 无相关文章 Last modification:August 16th, 2009 at 12:30 pm © 允许规范转载 Support 如果觉得我的文章对你有用,请随意赞赏 ×Close Appreciate the author Sweeping payments Pay by AliPay Pay by WeChat