如何让一个应用程序在计算机一启动的时候运行???

Question

var
   Reg: TRegistry;
   AppFileName: PChar;
begin
     if Edit1.Text='' then  // 判断文件名是否为空
     begin
        MessageBox(Handle,'应用程序名称不可以为空。','错误',MB_OK+MB_ICONERROR);
        Exit;
     end;
     // 初始化AppFileName
     GetMem(AppFileName,256);
     Edit1.GetTextBuf(AppFileName,256);
     Reg:=TRegistry.Create;
     try
        Reg.RootKey:=HKEY_LOCAL_MACHINE;
        if (Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False))=True then
        begin
             // 在注册表中添加数值
             Reg.WriteString('StartUp1',AppFileName);
        end
        else
            MessageBox(Handle,'打开注册表失败。','错误',MB_OK+MB_ICONERROR);
        finally
             Reg.CloseKey;
             Reg.Free;
             FreeMem(AppFileName);
        end;

Answer 1

写注册表、启动项等其实并不是在计算机一启动就运行，而是启动得差不多的时候才运行的。真正要启动就运行的，要写Vxd。不过我不会。