如何让一个程序自己重新启动自己？(100分)

decade · 2003-03-28

我想让一个程序自己启动自己，如何实现？ 我用了以下代码测试，但仅仅能实现一次，在新生成的的程序了，功能就失效。 ShellExecute(handle,  'open','../project1.exe',nil,  '',  SW_SHOWNORMAL); application.Terminate ;

Milpas · 2003-03-28

你用绝对路径吧 你的路径是空，第二次起来就有问题了

decade · 2003-03-28

我用close 代替 application.Terminate 关闭，打开可以，但关闭就不能了。

Cut.fei · 2003-03-28

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls,shellapi; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var   aDir : string; begin   GetDir(0,aDir);   ShellExecute(handle,  'open',PChar(aDir+'/project1.exe'),nil,  '',  SW_SHOWNORMAL);   application.Terminate ; end; end.

decade · 2003-03-28

谢谢两位！

Cut.fei · 2003-03-28

给我分啊。

原野飞侠 · 2003-03-28

用ShellExecute是不要用open最好用 nil ShellExecute(handle,  'open','../project1.exe',nil,  '',  SW_SHOWNORMAL);

dingbaosheng · 2003-03-28

用线程 参照异常进程自动激活一文

tianliangle2003 · 2003-05-06

ShellExecute(handle,  'open',pchar(application.ExeName),nil,  '',  SW_SHOWNORMAL);

skybuilder · 2003-05-06

要用两条语句: ShellExecute(Handle, 'Open',Pchar(Application.ExeName),nil,'',SW_SHOWNORMAL); SendMessage(Handle,WM_CLOSE,0,0);

诸葛白痴 · 2003-05-06

用cmdLine最简单了，这也是最正确的 WinExec(cmdLine,xxxx)

rebirth · 2003-05-06

ShellExecute 的时候参数有一个似乎是path ？！ 记不清了，但是有点这样的印象。平时搞其他的，不需要传递路径参数， 其实，为了安全，除了不知道或系统的程序外，调用其他的，都应该指明。

FormatBrain · 2003-05-07

ShellExecute的参数里边关于所要运行的命令其实分为三个的： 一个是可执行文件名，一个是可执行文件的路径，另一个是参数。 很多人都没有注意到这一点，所以在调用时，可能会出现意外的情况。 具体可以查一下MSDN，写得很清楚的。

decade · 2003-05-24

谢谢各位的帮助，上次忘记了分分，现在给你们分。

decade · 2003-05-24

多人接受答案了。

如何让一个程序自己重新启动自己？(100分)

decade

Unregistered / Unconfirmed

Milpas

Unregistered / Unconfirmed

decade

Unregistered / Unconfirmed

Cut.fei

Unregistered / Unconfirmed

decade

Unregistered / Unconfirmed

Cut.fei

Unregistered / Unconfirmed

原野飞侠

Unregistered / Unconfirmed

dingbaosheng

Unregistered / Unconfirmed

tianliangle2003

Unregistered / Unconfirmed

skybuilder

Unregistered / Unconfirmed

诸葛白痴

Unregistered / Unconfirmed

rebirth

Unregistered / Unconfirmed

FormatBrain

Unregistered / Unconfirmed

decade

Unregistered / Unconfirmed

decade

Unregistered / Unconfirmed

Similar threads