修正delphi编写的ocx控件中的DAX error问题

最近用Delphi7编写了两个IE插件，在同一IE页面打开含这两个插件提示DAX错误。在网上找到一篇文章，原来是Delphi编写插件在Win2k和XP下有这个问题，需要修改Vcl目录下AxCtrls.pas文件里面的ParkingWindow函数内容，编译后将AxCtrls.dcu拷贝到Lib目录下，重新编译插件即可。

1. functionParkingWindow:HWND;
2. var
3. TempClass:TWndClass;
4. {$IFNDEFPARKINGWINDOWFIX}
5. ParkingName:String;
6. {$ENDIF}
7. begin
8. Result:=xParkingWindow;
9. ifResult<>0thenExit;
11. FillChar(TempClass,sizeof(TempClass),0);
12. {$IFNDEFPARKINGWINDOWFIX}
13. //fixDaxerror:accessviolation(win2k,winxp)
14. ParkingName:='DAXParkingWindow_'+Format('%p',[@ParkingWindowProc]);
15. ifnotGetClassInfo(HInstance,PChar(ParkingName),TempClass)then//fixDaxerror:accessviolation(win2k,winxp)
16. {$ELSE}
17. ifnotGetClassInfo(HInstance,'DAXParkingWindow',TempClass)then
18. {$ENDIF}
19. begin
20. TempClass.hInstance:=HInstance;
21. TempClass.lpfnWndProc:=@ParkingWindowProc;
22. {$IFNDEFPARKINGWINDOWFIX}
23. TempClass.lpszClassName:=PChar(ParkingName);//fixDaxerror:accessviolation(win2k,winxp)
24. {$ELSE}
25. TempClass.lpszClassName:='DAXParkingWindow';
26. {$ENDIF}
27. ifWindows.RegisterClass(TempClass)=0then
28. raiseEOutOfResources.Create(SWindowClass);
29. end;
30. xParkingWindow:=CreateWindowEx(WS_EX_TOOLWINDOW,TempClass.lpszClassName,nil,
31. WS_POPUP,GetSystemMetrics(SM_CXSCREEN)div2,
32. GetSystemMetrics(SM_CYSCREEN)div2,0,0,0,0,HInstance,nil);
33. SetWindowPos(xParkingWindow,0,0,0,0,0,SWP_NOACTIVATEorSWP_NOREDRAW
34. orSWP_NOZORDERorSWP_SHOWWINDOW);
35. Result:=xParkingWindow;
36. end;