HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
  建立新项目.

解决方案 »

  1.   

    uses Registry;procedure TForm1.Form1Create(Sender:TObject);
    var Reg:TRegistry;
    begin
      Reg:=TRegistry.Create;
      Reg.RootKey:=HKEY_LOCAL_MACHINE;
      Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
      Reg.WriteString('MyAppName',Application.ExeName);
      Reg.Free;
    end;
      

  2.   

    use里加上
      registry然后
    var 
      registry:Tregistry;
    begin
      regidtry:=Tregistry.create;
      registry.rootkey:=HKEY_LOCAL_MACHINE;
      if not MyReg.OpenKey ('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True) then ;//如果子键不存在则创建
      MyReg.WriteString(随便写字符,你的文件名和绝对路径);//将程序加载到启动中,每次开机自动执行
      registry.closekey;
      registry.free;
    end;
    如果有参数就跟在文件名后面,像你在dos下执行时键入的命令一样。
      

  3.   

      Registry:=TRegistry.Create; 
      Registry.RootKey:=HKEY_LOCAL_MACHINE; 
      try 
        if Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True); 
        then ///
        else ///
        Registry.CloseKey; 
      finally 
        Registry.Free; 
      end; 
      

  4.   

    程序名后直接加参数,这都要问????
    如 "c:\abc.exe /-install 参数.txt abc.zip"
      

  5.   

    就是啊,举个例子
    MyReg.WriteString('ScanRegistry','C:\WINDOWS\scanregw.exe /autorun');
    这里面的/autorun不就是参数吗?我觉得第一次我已经讲的很清楚了啊
    对了,第一次犯了小错误,定义的变量是registry,使用时错为myreg,你应该能看出来吧
    sorry咯!
      

  6.   

    就是啊,举个例子
    MyReg.WriteString('ScanRegistry','C:\WINDOWS\scanregw.exe /autorun');
    这里面的/autorun不就是参数吗?我觉得第一次我已经讲的很清楚了啊
    对了,第一次犯了小错误,定义的变量是registry,使用时错为myreg,你应该能看出来吧
    sorry咯!