为什么添加开机启动不成功？

Question

为什么添加开机启动不成功，代码如下：-------------------------------------------------------------------------------
procedure TFrm_Main.FormCreate(Sender: TObject);
Var
Msg:Tmessage;
reg:TRegistry;
FileName, FilePath: string;
begin
  FileName := ExtractFileName(application.ExeName); //开机启动的执行程序名
  FilePath := application.ExeName;//完整路径
  Reg := Tregistry.Create;
  try
    Reg.Rootkey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    Reg.WriteString(FileName, FilePath); //添加注册表项和键值
    Reg.CloseKey; //关闭注册表
  finally
    Reg.Free;
  end;
  WMDeviceChange(Msg);
  Application.ShowMainForm:=False;
end;-----------------------------------------------------------------------------
请教是哪里出错了？

Answer 1

我把这句屏掉了，其它的全是你的代码复制进去的，而且也重启机器，可以启动
WMDeviceChange(Msg); 

Answer 2

HKEY_LOCAL_MACHINE;说就是整个PC的。
看看是不是没有写入注册表。

Answer 3

换了一台电脑可以。
但为什么那台电脑不行呢？打开注册表，发现根本没有写入注册表，而且
Application.ShowMainForm:=False
这条隐藏窗口的语句在这台电脑上也没有效果？