100分求解，为何关闭程序时弹出蓝屏？

Question

把最后一句去掉，没关系的！

Answer 1

内存被你搞乱了，
你可能操作指针而造成的，
这和你的程序本身应该有很大问题，你使用内存的设计你要好好检查一下。

Answer 2

防止程序执行两次的方法
implementation 
var hnd: THandle;initialization
    hnd := CreateMutex(nil, True, 'irgendwaseinmaliges');
    if GetLastError = ERROR_ALREADY_EXISTS then Halt;finalization
    if hnd <> 0 then CloseHandle(hnd);
end.

Answer 3

多谢指点！
我的程序确实使用了指针，但程序在运行过程中没有出现错误，并且我使用完指针的地方，我都释放指针。我想应该是内存管理错误，但有没有实质的方法解决，如用其它工具测试等。