小弟写了一个注册表操作程序只是想测试一下可是却总是提示:[Error] Unit1.pas(39): Illegal character in input file: ' ' ($A1A1)(uses语句里己加入Registry类)实在看不出来源代码如下,请高手帮忙看一下哪里的错,procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
with Reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True)then
begin
WriteString('delphi','E:\Delphi6.0\Bin\delphi32.exe');
end
end//提示出错在这里
end;end.
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
with Reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True)then
begin
WriteString('delphi','E:\Delphi6.0\Bin\delphi32.exe');
end
end//提示出错在这里
end;end.
解决方案 »
- 高手求救 TChart的Series 问题
- raize控件包里的RzGroupBar控件,OUTLOOK模式
- 分发软件时,需要将msvcr71.dll复制到system32目录下,可是这个文件有可能已存在,也有可能该文件存在别的目录下,
- 如何大幅提高每秒插入数据库的条数?
- 有关BDE的问题,急啊!!!
- ACCESS简单送分问题!!!!!!!!!!!
- 怎么读取系统时间?
- 请问怎么样清除treeview一个项的所有子项
- TDBLookupComboBox
- 偶用access建立表,忘了设计主健,系统自动给加了个id,怎么能把这个id删了??还有,access中创建表时的 连接 作干什么用的?(牛虻)
- 一个oracle的小问题,解决了一定给分
- 请求帮助:oracle数据库问题
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
with Reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True)then
begin
WriteString('delphi','E:\Delphi6.0\Bin\delphi32.exe');
end
end//提示出错在这里,那里有非法字符,已删除,拷贝可用。
end;