ITPub博客

首页 > Linux操作系统 > Linux操作系统 > DELPHI 写入注册表自动运行

DELPHI 写入注册表自动运行

原创 Linux操作系统 作者:zaorv 时间:2019-03-29 14:18:08 0 删除 编辑

uses registry;

procedure TKeyReportForm.AutoRun;
var
reg:TRegistry;
keyFilePath:string;
begin
{keyFilePath获取文件详细路径。}
keyFilepath:=extractFilePath(application.ExeName)+extractFileName(application.ExeName);
reg:=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
Try
reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun',True);
reg.WriteString('keyboad',KeyFilepath);
except
exit;
End;
reg.CloseKey;
reg.Free;
end;


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/729024/viewspace-564888/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2018-09-12

  • 博文量
    192
  • 访问量
    143737