直接加上一个键不就行了,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;
就是修改默认键