delphi 实现程序开机自动启动

本文整理自网络，侵删。

 单元文件：Registry;

{开机运行。}
procedure AutoRun(Flag: BOOLEAN);
var
tempreg: TRegistry;
begin
try
tempreg := TRegistry.Create;
tempreg.RootKey := HKEY_CURRENT_USER;
tempreg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
if Flag then
tempreg.WriteString('自动关机', '"' + ParamStr(0) + '"')
else
begin
tempreg.DeleteValue('自动关机');
end;
finally
tempreg.Closekey;
tempreg.Free;
end;

end; 

相关阅读 >>

Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法

Delphi 获取url特殊路径

Delphi 获取当前目录下的.txt文本不要带后缀扩展名

Delphi 数字摇号器

Delphi 加密解密字符串函数

Delphi indy 10tidftp中的directorylisting使用

Delphi 图像旋转90° 反旋转90°

winapi 字符及字符串函数(11): lstrcpyn - 复制字符串, 同时指定要复制的长度

Delphi中initialization和finalization

Delphi string内存结构

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 实现程序开机自动启动