关闭

创建快捷方式及自动运行

284人阅读 评论(0) 收藏 举报
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; 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:9151次
    • 积分:219
    • 等级:
    • 排名:千里之外
    • 原创:10篇
    • 转载:6篇
    • 译文:0篇
    • 评论:1条
    文章存档
    最新评论