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

yizhiyu 2003-10-04 03:30:46

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

...全文

108 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

qiume 2003-10-10

打赏
举报

建议重装

delphi_xizhousheng 2003-10-10

打赏
举报

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

yizhiyu 2003-10-10

打赏
举报

thanks,我这就再试一下

不过，dcc60.dll有问题，就只能重装了吗？

aiirii 2003-10-04

打赏
举报

代碼有些小錯誤,但沒問題,估計是你的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 自帶的資源編繹的東東,可能,你資源有問題吧!

yizhiyu 2003-10-04

打赏
举报

先谢谢各位了。
偶是DELPHI的初学者，照着书上搬了一个程序，编译不了，出错提示如上：
偶把源码也贴上来了：帮助看一下

unit Unit1;

interface

uses
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.

catac 2003-10-04