改注册表,或加在win.ini文件里
解决方案 »
- delphi用spcomm控件实现串口通信时,数据能发送到超级终端或者串口调试工具,但是不能接受它们发过来的数据
- 选中一个listview的Caption添加到listbox,如果listview选中为空就出错
- delphi 的treeview问题
- 谁 知道 2005QQ是用什么打包工具 打包了
- tdbgrid的显示
- 我是刚学delphi的新手有关一个ado问题,请各位高手们帮忙?()
- 最新C6/D6插件:YExperts,大家快来下载...
- 怎样使stringgird的表头显示出来不动,浏览记录时还在最上面,我的不明白。
- 我现在要通过QUERY去查询表EMPLYEE的的BM字段(select DISTINCT bm from emplyee),现在如何让RadioGroup1.items中显示被查询出来的BM呢?
- combobox的小问题
- 有谁知道深圳市奥尊电脑有限公司上海分公司的情况?
- 做一个聊天客户端,用什么控件来做聊天内容显示的窗口
2.还可写入注册表:最顶级主键忘了,microsoft\windows下的run目录。
如果本身可以复制,就是病毒了!
Reg:=TRegistry.create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
Reg.WriteString('xxxx.exe',Application.ExeName);
finally
Reg.CloseKey;
Reg.Free;
end;
在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run中新建而进制值,路径为你的EXE文件的路径
方式很多,最简单的就是在RUN中加键值!就是在开始菜单中看见的一样!
var
RegF : TRegistry;
begin
RegF := TRegistry.Create;
RegF.RootKey := HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
RegF.WriteString('ProgramAddtoRun','D:\Delphi\Tregister\ProgramAddtoRun\ProgramAddtoRun.exe');
except
ShowMessage('error');
end;
RegF.CloseKey;
RegF.Free;
end;
我一直用的就是这样,