本站创建于2006年,博主为Delphi老码农,暗黑忠实粉丝,主要用于学习经验分享
该日志由 samool 发表于 2007-01-22 15:24:51
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
上一篇: 检测DEDE反编译器 下一篇: 通过ODBC操作PostgreSQL
当前暂无评论 »