Delphi 程序启动报错 "A call to an OS function failed."

如题，遇到了Delphi程序启动时就报错，错误提示为："A call to an OS function failed."，跟踪代码分析发现这个错误是在程序初始化启动时执行到Application.Run;这里发生的，一时无头绪，后经多番调查，找到了原因——程序主窗体中重载了WndProc过程，而其中写漏了inherited;这一句！记录下来给自己做个备忘，也提顺便醒其他童鞋们注意这点。

procedure TForm1.WndProc(var Message: TMessage);
begin
  inherited;
  { do sth. }
end;

 

复制去Google翻译 翻译结果