执行此无任何窗体的文件可以同时执行G盘DOOR下的DOOR.EXE等多个程序

Question

这个简单，Application不显示窗体就说行了。
在MainForm的OnCreate事件中写如下代码：
procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.ShowMainForm:=False;//不显示主窗体
  Winexec('G:\DOOR\DOOR.EXE',0);//运行DOOR.exe
  Application.Terminate;//事干完了，结束程序吧
end;
给分吧！

Answer 1

你的程序中不要建任何窗口，在*.dpr文件中
Application.Inialize;
Winexec('G:\Door\Door.exe',sw_hide);
//参数可选sw_showNormal, sw_hide, sw_maximized等
Application.Run;
Application.Terminate;想让你的程序一开始就执行，将你的程序路径和名字加到注册表
[HKEY_LOCAL_MACHINE\Software\Microsoft\Widows\CurrentVersion\Run]

Answer 2

interface
uses Registry;var
 Reg:TRegistry;
begin
 Reg:=TRegistry.Create;
 Try
  Reg.RootKey :=HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('\SoftWare\Microsoft\Windows\CurrentVersion\Run',false) then
   Reg.WriteString('myReg','c:\myApp.exe');
  finally
   Reg.CloseKey ;
   Reg.Free ;
 end; //end of try
end;其中myReg是你给这个值取的名字，随意；c:\myApp.exe是你的程序的名字。

Answer 3

够清楚了
其实windows启动的时候执行的是系统盘下的winexec.bat文件，里面的命令可以自己改的（用记事本打开）

Answer 4

真正的没有窗体的程序就不要用到form/application等vcl对象。
program test;
uses
 windows,messages,shellapi;
begin
 shellexecute(hinstance,'open',pchar('d:\door.exe'),nil,nil,sw_hide);
 //other things to do ...
end.这样的程序才叫小。

Answer 5

blazingfire　少一名
application.run;