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
相关文章
- 无相关文章
![](https://www.SamooL.com/images/bottomfeici.png)
Last modification:August 16, 2009
© Allow specification reprint