Delphi 7应用程序抛出“内存无法读取”错误,Delphi 2010应用程序抛出“应用程序中发生未知软件异常异常”,然后“运行时错误217”.此错误发生在任何表单初始化和异常处理程序的任何初始化之前.
将notepad.exe设置为登录屏幕保护程序工作正常.
有什么想法吗?
当您使用窗体单元时,它会依赖于类单元.
初始化部分调用InitThreadSynchronization,其中包括以下内容:
SyncEvent := CreateEvent(nil,True,False,''); if SyncEvent = 0 then RaiseLastOSError;
在登录屏幕中调用API API调用CreateEvent失败.不幸的是,我不确定登录屏幕是否:(a)禁止CreateEvent完全(b)需要CreateEventEx,或(c)将使用适当的lpEventAttributes参数.我已经发布了一个更具体的问题,希望能够找出:CreateEvent from Windows-7 Logon Screen
您可以使用以下控制台应用程序验证问题:
program TestLoginScreensaver; {$APPTYPE CONSOLE} uses Windows,SysUtils; var SyncEvent: THandle; begin try SyncEvent := CreateEvent(nil,''); if SyncEvent = 0 then RaiseLastOSError; CloseHandle(SyncEvent); //So handle is closed if it was created (e.g. while logged in) except on E:Exception do Writeln(E.Classname,': ',E.Message); end; Readln; end.
SyncEvent的目的是使TThread实例能够同步到主线程.所以如果你编写一个线程化的应用程序,或使用TThread以外的其他线程创建你的线程,那么实际上并不需要/使用SyncEvent.
SIDE-RANT: This is a prime example of the problem with using the initialization section. Merely including a unit has the potential to introduce unnecessary side-effects. They’re Mostly Harmless,but not in this case. Now you may argue that
Classes.pas
is bloated,and I won’t argue. But the point is that if Classes initialization were called explicitly from the DPR,this problem would have been easier to identify and find a workaround for.
编辑:新解决方案
正如雷米·雷博在另一个问题中指出的那样.
行:
SyncEvent := CreateEvent(nil,'');
必须更改为:
SyncEvent := CreateEvent(nil,nil);
由于这个解决方案涉及重新编译VCL单元,所以您可能想要了解这个问题上的几个previous questions
作为唯一的变化(在D2009中编译),我能够在登录屏幕上成功显示一个空白表单.但是,请记住,由于登录屏幕上的安全限制,您通常希望能够执行的某些操作将被禁用.
原文地址:https://www.jb51.cc/windows/370389.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。