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('my','c:\dog.exe"');
except
End;
RegF.Close; RegF.Free;
end;
begin
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True); RegF.WriteString('my','c:\dog.exe"');
except
End;
RegF.Close; RegF.Free;
end;
解决方案 »
- 求“超长整数求余”的算法实现。100分。
- 三层问题,大侠过来看看!
- 求Fast Report 3.0 以上的控件包安装程序(含源码)
- 程序退出时出错:
- 关于loadfromfile('test.txt')的菜菜问题???
- 关于SQL的简单问题。即给分。
- 怎样解决表中字段重复问题
- 如何将多媒体文件保存到Oracle数据库中?
- 请问在delphi中如何调用MultiByteToWideChar等支持Unicode的涵数,希望可以举个例子:),还有请教如果在delphi中转换GB,Big5字符串,也希望有例子,谢谢:)!
- 怎么样才能从文件中提取应用文件的图标放入OLE控件中去?
- 为何ADO连接不上数据库。(在线等待)
- 一个查询问题:在线等!
ppath : pchar;
myreg : tregistry;
Begin
myreg:=tregistry.Create ;
ppath := pchar(extractfilepath(paramstr(0)) + 'aaa.exe');
myreg.RootKey := HKEY_LOCAL_MACHINE;
If myreg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true)
Then
Begin
myreg.WriteString('aaa', ppath); //设置开始启动
myreg.CloseKey;
myreg.Destroy;
End;
end;