直接加上一个键不就行了,uses registry;
var regf:tregistry;RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
if regf.ReadString('start screen')<>str then
RegF.WriteString('start screen',str);
finally
regf.CloseKey;
regf.Free;
End;
var regf:tregistry;RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
if regf.ReadString('start screen')<>str then
RegF.WriteString('start screen',str);
finally
regf.CloseKey;
regf.Free;
End;
解决方案 »
- 关于登陆问题
- 求助!超简单!但我就是不全delphi+access 中用update出错
- 兄弟们,帮帮忙200分求Delphi6.0 sp2 ,我的电脑老是中招,不能使用QUICKREPORT,以前做的报表也打不开了,重装安装WINDOWS2K又好了,不能
- 高分求助webbrowser与flash与delphi之间的参数传递信息!!!!!
- DBGridEh的Post问题
- 如何用wordapplication打开word文档
- 高手看一看
- 哪位大侠,能为小弟指点迷途——穷举算法(关于网上邮箱搜索的),谢谢,十万火急,我这有高分!
- 小菜鸟有一问:TMainMenu的Click事件怎样和ToolButton联系起来?
- 高手出招:在sql语句中,不同数据库的查询,可否灌入另一数据库中?
- DBLookupComboBox的问题
- 学DELPHI以后能挣钱吗??每个月能挣多少??
就是修改默认键