记账软件版1楼: 如何使程序退出后，再自动启动本程序？

谢谢！

2楼: 用另外一个程序来控制
或者建立一个批处理文件来执行 如金蝶进销存软件

3楼: Application.Terminate;
WinExec(PChar(Application.ExeName), SW_SHOWNORMAL);

4楼: 不行就用守护进程吧

5楼: procedure Tw_Main.cb_RestExecute(Sender: TObject);
begin
if (Trim(USER_ID) <> ＇＇＇＇) and (Trim(USER_NAME) <> ＇＇＇＇) then
begin
if Application.MessageBox(＇＇将要重新启动系统是否继续？＇＇,＇＇提示＇＇,MB_DEFBUTTON2 + MB_ICONEXCLAMATION + MB_YESNO) = IDYes then
begin
Close;
WinExec(Pchar(Application.ExeName),SW_SHOWNORMAL);
end;
end else begin
Close;
WinExec(Pchar(Application.ExeName),SW_SHOWNORMAL);
end;
end;

6楼: 是的，写一个守候进程就可以了。那个进程别的什么事也不作，就是监控你的进程时候终止，终止了就重新运行起来。

记账软件版7楼: 把守护进程写成服务

8楼: 谢谢

-----------------------
结帖:多谢热心网友
-----------------------