delphi7 写一个简单的附加到窗口上的程序，让OD不能再附加 例子

Delphi 7中创建一个防止第三方调试器（如OllyDbg、IDA Pro等）附加到窗口的简单程序，通常需要利用 Delphi 的安全机制以及一些底层API。以下是一个简化的示例，这个程序会在启动时检查是否有调试器附着，并在发现时关闭自身：

uses
  Windows,
  Classes;

var
  IsDebuggerPresent: Boolean;
begin
  // 检查是否正在被调试
  IsDebuggerPresent := TProcess.GetModuleHandle('dbghelp.dll') <> 0; // dbghelp.dll是调试工具的一部分

  if IsDebuggerPresent then begin
    // 如果发现调试器，尝试退出进程
    ShowMessage('This program is running in a debugger and cannot be debugged further.');
    TerminateProcess(TProcess.CurrentProcess.Handle, 0); // 优雅地结束进程
  end else begin
    Application.Initialize; // 初始化应用程序
    Application.CreateForm(TForm1, Form1); // 创建主窗体
    Application.Run; // 运行应用程序
  end;
end.

在这个例子中，我们通过查找`dbghelp.dll`模块的存在来判断是否有调试器活动。如果发现，就显示一条消息并终止进程。

注意：这只是一个基础的示例，实际生产环境中，阻止调试器可能涉及更复杂的措施，比如动态修改内存、检查系统钩子等，这些都是为了增加逆向工程的难度。另外，用户可以轻易绕过这种限制，除非有更高级别的硬件保护或定制操作系统层面上的安全措施。