----编译错误，请问各位哪里出错了？该怎样解决？提示如下：

Question

Error:
Access violation at address 009A4E80 in module 'dcc60.dll',Read of address 000000CB.

Answer 1

具体环境是什么啊?
有没有用什么第三方控件?
太模糊了……
IDE出错的话可以重新启动Delphi试试
实在不行重装

Answer 2

好像说你的程序中调用DCC60。DLL中的函数有问题。

Answer 3

先谢谢各位了。
偶是DELPHI的初学者，照着书上搬了一个程序，编译不了，出错提示如上：
偶把源码也贴上来了：帮助看一下unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Spin;type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    SpinEdit3: TSpinEdit;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure SpinEdit3Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    procedure WmNCHiTTest(var Msg:TWMNCHitTest);message WM_NCHITTEST;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
const
    //An array of points of the star region
  RgnPoints:array[l..10]of TPoint=
    ((X:203;Y:22),(X:157;Y:168),(X:3;Y:168),
    (X:128;Y:257),(X:81;Y:402),(X:203;Y:334),
    (X:325;Y:422),(X:257;Y:257),(X:402;Y:168),
    (X:249;Y:168));
 LinePoints:array[1..11]of TPoint=
    ((X:199;Y:0),(X:154;Y:146),(X:2;Y:146),
    (X:127;Y:235),(X:79;Y:377),(X:198;Y:308),
     (X:320;Y:396),(X:272;Y:234),(X:396;Y:146),
     (X:244;Y:146),(X:199;Y:0));
procedure TForm1.FormCreate(Sender: TObject);
var
   Rgn:HRGN;
begin
　  SetWindosPos(Form1.Handle,HWND_TOPMOST,Form1.Left,Form1.Top,Form1.Width,Form1.Height,0);
  　 //使窗体始终保持在最前
    Rgn:=CreatePolygonRgn(RgnPoints,High(RgnPoints),ALTERNATE);
     //创建一个多边形的区域
    SetWindowRgn(Handle,Rgn,True);//绘制多边形窗体
    form1.color:=rgb(spinedit1.value,spinedit2.value,spinedit3.value);
     //设置窗体初始背景颜色
end;procedure TForm1.FormPaint(Sender: TObject);
begin
    Canvas.Pen.Width:=1;//设定画笔大小
    Canvas.polyline(LinePoints);//绘制多边形轮廓线
end;procedure WmNCHiTTest(var Msg:TWMNCHitTest);
begin
   DefaultHandler(Msg);//设定WindowAPi函数的消息
   if Msg.Result=HTCLIENT then
      Msg.Result:=HTCAPTION;//处理Windows消息
end;procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
    form1.color:=rgb(spinedit1.value,spinedit2.value,spinedit3.value);//改变窗体背景颜色
end;procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
    form1.color:=rgb(spinedit1.value,spinedit2.value,spinedit3.value);//改变窗体背景颜色
end;procedure TForm1.SpinEdit3Change(Sender: TObject);
begin
    form1.color:=rgb(spinedit1.value,spinedit2.value,spinedit3.value);//改变窗体背景颜色
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
     SetWindowPos(Form1.Handle,HWND_NOTOPMOST,Form1.Left,Form1.Top,Form1.Width,Form1.Heitht,0);
     //恢复窗体正常位置和显示属性
     form1.close;//关闭窗体
end;end.

Answer 4

代碼有些小錯誤,但沒問題,估計是你的IDE的問題!!
小修改如下:
1, 
{$R *.dfm}
const
    //An array of points of the star region
  RgnPoints:array[l..10]of TPoint=其中 array[l..10] 不是L 是 1;2,
procedure TForm1.FormCreate(Sender: TObject);
var
   Rgn:HRGN;
begin
　  SetWindosPos是 SetWindowPos(...3,
procedure WmNCHiTTest(var Msg:TWMNCHitTest);
begin應該改為: procedure TForm1.WmNCHiTTest(var Msg:TWMNCHitTest);dcc60.dll 應該是 delphi 自帶的資源編繹的東東,可能,你資源有問題吧!

Answer 5

thanks,我这就再试一下
不过，dcc60.dll有问题，就只能重装了吗？

Answer 6

BRCC是编译资源的 DCC.DLL是DCC32编译源文件时调用的库，不行就重新建立一个工程然后再添加你的PAS和DFM文件，要是是DCC库有问题，直接从安装光盘中拷一个过来就可以了 不用重装