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