var
tempreg:TRegistry;
begin
tempreg:=TRegistry.Create;
tempreg.RootKey:=HKEY_LOCAL_MACHINE;
tempreg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
tempreg.WriteString('金山词霸','"C:\Program Files\jscb3\xdict.exe"');
tempreg.Closekey;
tempreg.Free;
end; 在注册表里SOFTWARE\MICROSOFT\WINDOWS\RUN\有我的程序地址
为什么就是开机不自动启动我的程序呢?一点点反应也没有!!!
tempreg:TRegistry;
begin
tempreg:=TRegistry.Create;
tempreg.RootKey:=HKEY_LOCAL_MACHINE;
tempreg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
tempreg.WriteString('金山词霸','"C:\Program Files\jscb3\xdict.exe"');
tempreg.Closekey;
tempreg.Free;
end; 在注册表里SOFTWARE\MICROSOFT\WINDOWS\RUN\有我的程序地址
为什么就是开机不自动启动我的程序呢?一点点反应也没有!!!
解决方案 »
- 怎样把DBGridEh的内容导出成UTF8格式的TXT文件
- 记时器代码问题,高手帮忙看一下.
- 怎样把字符串保存成十六进制文件?
- 在下很着急啊!!!请教啊!请教!!!关于Install Shield For D5!!!
- 请问,网上邻居下的共享文件夹里的文件如何复制到本地文件夹.在线....
- 在DELPHI中如何从一条混杂着文字和数字的记录中提取数字,请看内容中的详细例子
- DELPHI里的ADOQUERY控件怎样实现两张表的交叉查询?高手在哪?
- 求查询控件?
- 请问可不可以绕过NT的身份验证直接登录到SQL7数据库?
- 如何制作启动画面:
- 高分求救,急急急急急急急!!!!!
- 如何在DBImage中打开JPG文件,并保存到相应的字段中?
Interbase Server"D:\Program Files\Borland\IntrBase\BIN\ibserver.exe"
在程序中实现可以使用TRegIniFile或者使用TRegistry都可以. User Registry; Var RegF:TRegistry;
begin
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
RegF.WriteString('Interbase Server',
'"D:\Program Files\Borland\IntrBase\BIN\ibserver.exe"');
except
...
End;
RegF.Close; RegF.Free;
end;
本页版主:傅贵,最后修改日期:98.3.29 //不可能吧,你用EXCEPT看一看有没有什么异常发生呢?还有,看一看注册表中这个值 是不是成功写进入了呢?
Interbase Server"D:\Program Files\Borland\IntrBase\BIN\ibserver.exe"
在程序中实现可以使用TRegIniFile或者使用TRegistry都可以. User Registry; Var RegF:TRegistry;
begin
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
RegF.WriteString('Interbase Server',
'"D:\Program Files\Borland\IntrBase\BIN\ibserver.exe"');
except
...
End;
RegF.Close; RegF.Free;
end;
本页版主:傅贵,最后修改日期:98.3.29 //不可能吧,你用EXCEPT看一看有没有什么异常发生呢?还有,看一看注册表中这个值 是不是成功写进入了呢?
在HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run下设置相应键值即可。
可以用以下的代码
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',true);
Reg.WriteString('Test','program'{here is your program});这是一个资料,跟你的根键不一样~~~~~