高手们，怎么让程序重新启动呀！就是释放内存，然后重新载入！谢谢！

Question

谢谢！！！！

Answer 1

实际上可以用相当于两个程序的方式，用shell api函数.

Answer 2

procedure TForm1.btnRestartClick(Sender:TObject);
begin
    WinExec(pAnsiChar(Application.ExeName),SW_SHOW);
    Close;
end;

Answer 3

程序A\程序B其中A为要重新启动的;
在A结束某操作时,加入
    WinExec(pAnsiChar(B的名称),SW_SHOW);
    Close;B中程序启动后
  等待一段时间后，如等待30s,之后执行
    WinExec(pAnsiChar(A的名称),SW_SHOW);
    Close____________
等待的目的是使系统有足够的时间使A退出,系统的内存恢复到原来的水平