创建快捷方式及自动运行

procedure AtorunSktsrvr(RunFileName, RunKey: string);
var
  RegFile: TRegistry;
begin
  RegFile:=TRegistry.Create();
  try
    RegFile.RootKey:=HKEY_LOCAL_MACHINE;
    if RegFile.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',false) then
      RegFile.WriteString(RunKey,RunFileName);
  finally
   RegFile.CloseKey;
   RegFile.Free;
  end;
end;