不好意思 应该不是CnPack的问题 应该是Delphi本身的毛病！
当鼠标在加红代码处停留时出现错误！
uses comobj;
var
  My_PPT: Variant;
begin
  My_PPT := CreateOleObject('PowerPoint.Application');
  My_PPT.Visible := True;
  My_PPT.Caption := '课件';
  My_PPT.Presentations.open('C:\幻灯片.ppt',-1);
  My_PPT.ActivePresentation.SlideShowSettings.ShowType := 1;
end;

环境 Vista 32+Delphi 2007 For Win32+CnWizards_0.8.2.327_Unstable
在我这儿100％重现的错误。

[ 本帖最后由 ayweo 于 2007-7-22 13:08 编辑 ]

这个错误要定位比较难……
能否把上述出错框里，Details按下后，记录的堆栈信息也贴上来看看？

[209D2DDA]{coreide100.bpl} HelpInsight.ShowHelpInsightTip + $AE
[2000A455]{rtl100.bpl  } System.@CheckAutoResult + $11
[209D2DDA]{coreide100.bpl} HelpInsight.ShowHelpInsightTip + $AE
[20A59AD2]{coreide100.bpl} EdProcs.SafeEkEval + $4A
[20A9A645]{coreide100.bpl} EdKrnl.LineIsElided + $11
[20A9A69E]{coreide100.bpl} EdKrnl.ElisionLineIncrement + $3E
[209EDF8C]{coreide100.bpl} EditorControl.TCustomEditControl.CheckHelpInsight + $9C
[209F9C60]{coreide100.bpl} EditorControl.TEditEventHandler.FormHintShow + $8C
[209EE68C]{coreide100.bpl} EditorControl.TCustomEditControl.CMHintShow + $38
[2013F6A7]{vcl100.bpl  } Controls.TControl.WndProc + $2BB
(00022C72){CnWizards_D11.DLL} [06643C72]
(00020A35){CnWizards_D11.DLL} [06641A35]
[20143736]{vcl100.bpl  } Controls.TWinControl.WndProc + $4FA
[2013F334]{vcl100.bpl  } Controls.TControl.Perform + $24
[2016250D]{vcl100.bpl  } Forms.TApplication.ActivateHint + $1CD
[20161FCC]{vcl100.bpl  } Forms.TApplication.HintMouseMessage + $F8
[2013F4F0]{vcl100.bpl  } Controls.TControl.WndProc + $104
(00020A35){CnWizards_D11.DLL} [06641A35]
[201431E8]{vcl100.bpl  } Controls.TWinControl.IsControlMouseMsg + $60
[2013C3C5]{vcl100.bpl  } Controls.FindDragTarget + $35
[20143736]{vcl100.bpl  } Controls.TWinControl.WndProc + $4FA
[20142E60]{vcl100.bpl  } Controls.TWinControl.MainWndProc + $2C
[20040DE4]{rtl100.bpl  } Classes.StdWndProc + $14
[2013A7BA]{vcl100.bpl  } Controls.FindControl + $42
[20160EF0]{vcl100.bpl  } Forms.TApplication.ProcessMessage + $F4
[20160F32]{vcl100.bpl  } Forms.TApplication.HandleMessage + $A
[20161188]{vcl100.bpl  } Forms.TApplication.Run + $CC
[00422971]{bds.exe     } bds.bds (Line 196, "" + 7) + $2

看堆栈应该是delphi自家的问题