如何实现让一个程序在一运行就自己运行同一目录下的另一程序,并最小化第二个程序

Question

如何实现让一个程序在一运行就自己运行同一目录下的另一程序,并最小化该程序

Answer 1

A中添加: exec('./B.exe');B在创建时最小化~

Answer 2

extractfilepath(paramstr(0));//取得路径
shellexecute()；//执行

Answer 3

WinExec('xxx.exe', SW_SHOW);
在xxx.exe中的onCreate中写下
windowstate := wsMinimized

Answer 4

//第二个程序已执行,则不重复执行该程序
procedure TForm1.Button3Click(Sender: TObject);
var
  HWndCalculator : HWnd;
begin
 HWndCalculator:=findwindow(nil,'计算器');
 if HWndCalculator<>0 then
   exit
 else
  shellexecute(handle,nil,'C:\WINDOWS\CALC.EXE',nil,nil,sw_show);
end;