在线等候各位高手指教！！！！！用delphi编写的系统维护程序 ( 积分: 200 )

S

singba

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-14

• #1

代码:

这样完成这样的程序：当程序因为某种原因被关了后，系统会自动把它重新启动！！<br>请那为高手能给个简单的代码。（在NT环境下，不是9X）<br><br>在线等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！

 

S

singba

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-14

• #2

代码:

这样完成这样的程序：当程序因为某种原因被关了后，系统会自动把它重新启动！！<br>请那为高手能给个简单的代码。（在NT环境下，不是9X）<br><br>在线等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！等！

 

S

suninrain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-14

• #3

做双线程，互相监督，发现对方挂了，就重启它

 

S

singba

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-14

• #4

to suninrain<br>如果两个线城都关了呢？

 

S

singba

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-14

• #5

没人会吗？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

 

S

singba

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-14

• #6

我不在乎等多久，只是我害怕没有结果

 

R

radtek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-14

• #7

三线程不错，vc的例子比较多，你有耐心可以转成delphi的。不过消耗资源很多，不推荐使用。3721就是比较成功的垃圾。

 

S

singba

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-14

• #8

不用多线程就没有办法了吗？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？<br><br>继续等待中，不过先谢谢前面两位朋友给的思路

 

J

jinping_yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-14

• #9

在程序关闭的事件中如（OnClose）执行下面的函数：原理是退出前自动生成一个.Bat文件，此文件专门启动你的程序，退出前执行此文件<br>procedure aRestartPro;<br>var <br> &nbsp;atextfile:Textfile;<br>begin<br> &nbsp;assignfile(atextfile,extractfilepath(application.ExeName)+'atempfile.bat');<br> &nbsp;writeln(atextfile,extractfilepath(application.ExeName)+application.ExeName);<br> &nbsp;winexec(pchar(extractfilepath(application.ExeName)+'atempfile.bat'),0);<br>end;

 

T

tianliangle2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-24

• #10

我可以做到程序不被关闭，至于自动启动被关闭程序，我同意radtek的三线程，不过delphi版的造就 有了《delphi核心编程》

 

S

singba

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-26

• #11

恩，谢谢各位的帮忙,不过还不是我想要的<br><br>如果还有谁好的建议请指点指点，谢谢各位了

 

M

Mike1234567890

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-26

• #12

你可以写个系统服务，定时检查标志信号，如果标志信号不存在了就重启软件<br>当然必需在软件关闭的时候将标志清除<br>在软件启动的时候要检查服务是否正常工作，如果不正常则修复一下<br>这样就可以互相掩护了..........

 

S

singba

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-26

• #13

to &nbsp;Mike1234567890,<br>请问系统服务怎么写?我目前就是用两个进程在相互监督,这位朋友说的写系统服务可能是我想要的,请说的具体点，谢谢,呵呵

 

S

songjy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-01

• #14

相互监督,如果不放心就多用几个程序

 

W

wnlx0626

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #15

有那个必要吗？做一个简单的程序，这程序是只启动要用的程序，当然，要用的程序必须做到在运行时具有唯一性