如何让一个DEPHI程序在操作系统启动完毕时自动启动最小化运行?是有界面的.exe程序,可否在程序中加代码来实现。

解决方案 »

  1.   

    把程序放在系统启动项目里就可以啊~程序里做的:
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      Application.Minimize;
    end;
      

  2.   

    写注册表:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
    OnCreate时:
       Application.Minimize;
      

  3.   

    1,首先在代码中把onshow的时候设置成窗体最小化,然后直接手动加到windows开始菜单的启动中,呵呵
    2,其次,可以自己写代码来实现开机运行,主要是写注册表来实现
    3,可以作为windows的服务来处理
    给你个例子
    ================
    运用Delphi编写Windows NT中服务程序 
    ---- Windows NT服务程序不同于一般的运行程序,它不需要NT登录进去,只需要开机进入NT系统便可以运行,一般用于系统服务方面的应用,学会编写NT服务程序对网络管理人员而言是非常重要的,Delphi4.0作为一种高效、快速、强大的开发语言,为开发NT服务程序提供了非常便捷的方法,加上其可视化界面以及与数据库的完美结合,使我们开发与数据库有关的NT服务程序变得非常简单,下面以编写一个NT定期备份程序为例,介绍如何运用Delphi编写Windows NT的服务程序。 ---- 打开Delphi编辑器,选择菜单中的File|New,在New Item中选择Service Application项,Delphi便自动为你建立一个基于TServiceApplication的新工程,TserviceApplication是一个封装NT服务程序的类,它包含一个Tservice1对象以及服务程序的装卸、注册、取消方法。 ---- 将Tservice1对象的属性做下列更改: DisplayName与Name改为:DataBackup,
    ServiceStartName属性改为系统管理员
    用户(如DOMAIN\Administrator)和Password则输入用户密码---- 这样,服务程序运行时将自己以该用户的权限操作NT。 ---- 这样,一个NT服务程序编写已经完成,在Delphi编辑器中选择菜单Run|Parameters,在Parameters中输入/install,程序编译运行后,一个名为DataBackup的NT服务程序已经安装好,你可以双击控制面板中的服务项目,将会看到此服务程序,只是此服务程序没有任何东西而已;在Delphi编辑器中选择菜单Run|Parameters,在Parameters中输入/uninstall,程序编译运行后,系统将会将此服务程序卸掉。 ---- 服务程序是通过控制一个线程的生成、暂停、继续、停止来达到服务目的的,因此我们必须加入一个Tsession对象来编写文件自动备份代码,在Delphi编辑器中选择菜单中的File|New,在New Item中选择Thread Object项,Delphi会提示你为该Tsession对象输入一个名称(输入DataCopy),Delphi便生成了一个基于Tsession的DataCopy对象,并提供了一个Execute过程供重载,我们要Execute过程中输入以下程序: var
       Hour, Min, Sec, MSec: Word;
       TimeStamp,DirectoryEdit1,DirectoryEdit2:String;
       SearchRec: TSearchRec;
       Source,Temp,Dest:Pchar;
       F,F1:THandle;
       FF,FF1:WIN32_FIND_DATA;
    Begin
       {每次文件备份执行时间}
       TimeStamp:='12:00';
       {文件备份源目录}
       DirectoryEdit1:='C:\temp';
       {文件备份目录}
       DirectoryEdit2:='C:\temp1';
       while True do
           begin
            DecodeTime(Time,Hour, Min, Sec, MSec);
              IF Trim(TimeStamp)=Format
    ('%-2.2d:%-2.2d',[Hour,Min]) then
              begin
                GetMem(Source,250);
                GetMem(Dest,250);
                GetMem(Temp,250);StrPcopy(Dest,DirectoryEdit2+'\
    '+FormatDateTime('YYYYMMDD',Date));
    CreateDirectory(Dest,nil);
    IFFindFirst(DirectoryEdit1+'\*.*',faAnyFile,
     SearchRec)=0 then
                  begin
                    repeat
    StrPcopy(Source,DirectoryEdit1+'\'+SearchRec.Name);StrPcopy(Dest,DirectoryEdit2+'\'
    +FormatDateTime('YYYYMMDD',Date)+'\'+SearchRec.Name);
                      copyfile(Source,Dest,False);
                    until FindNext(SearchRec)< >0;
                  end;
                SysUtils.FindClose(SearchRec);
               FindClose(F);
               FreeMem(Source,250);
               FreeMem(Dest,250);
               FreeMem(Temp,250);
              end;
            sleep(60000);
       end;end;---- 此线程执行时每隔一分钟将检查一次时间,看是否到了备份时间,如果是则将DirectoryEdit1中的所有文件拷到DirectoryEdit2目录中去。 
    ---- 现在编写服务控制DataCopy线程的代码,在TdataBackup对象中的OnStart、OnStop、OnPause、OnContinue事件中分别输入如下代码: procedure TDataBackup.DataBackupStart
    (Sender: TService;
      var Started: Boolean);
    begin
       DataThread:= TDataCopy.Create(False);
       Started := True;
    end;procedure TDataBackup.DataBackupStop
    (Sender: TService;
      var Stopped: Boolean);
    begin
      DataThread.Terminate;
      Stopped := True;
    end;procedure TDataBackup.DataBackupPause
    (Sender: TService;
      var Paused: Boolean);
    begin
      DataThread.Suspend;
      Paused := True;
    end;procedure TDataBackup.DataBackupContinue
    (Sender: TService;
      var Continued: Boolean);
    begin
      DataThread.Resume;
      Continued := True;
    end;---- 这样一个文件自动备份程序已经完成,编译好后,加上/install参数执行程序,系统会将此服务程序安装,由于服务程序中StartType属性为stAuto,NT每次启动时,此程序自动执行,你可以在控制面板中的服务项目来启动、暂停、恢复、停止它,也可以加上/uninstall参数执行程序来卸掉它。通过上述例子我们可以看到,用Delphi编写NT服务器程序十分方便,而且你也可以在Tservice对象上加许多非可视化控件来与数据库关联,实现很多复杂的功能。
      

  4.   

    将信息写入注册表.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('MyApp','"' + ParamStr(0) + '"');
          Reg.CloseKey;
        end;
      finally
        Reg.Free;
        inherited;
      end;end;
      

  5.   

    Kshape的第三种方法说得没错啊.
    只要作为NT的服务程序当然会和系统启动同步.
    程序当然越简单越好啦