如何在程序退出后再执行另一外部程序？

Question

窗口的OnClose,OnDestroy,OnCloseQuery事件函数都不能实现这一功能。

Answer 1

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FormDestroy(Sender);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  //ShowMEssage('O')
  ShellExecute(0,'open','F:\Delphi\Test\启动前调用可执行文件\社保局文件检索系统.exe',nil,nil,0);
end;

Answer 2

编译过不去，是不是要 uses...呀？

Answer 3

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
winexec();   加上这个函数就可以达到你的要求了，
end;

Answer 4

winexec()这个函数，，，，，，，楼主结贴呀，，，