var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Run', True) then
begin
Reg.WriteString('JCDataSyn', Application.ExeName);
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;
end;
delphi开机自动启动程序
最新推荐文章于 2021-11-11 17:23:30 发布