有没有什么办法设定应用程序在指定的时间自动重新启动呀？？？ ( 积分: 100 )

jsw0525 · 2005-06-30

有没有什么办法设定应用程序在指定的时间自动重新启动呀？？？

jsw0525 · 2005-06-30

有没有什么办法设定应用程序在指定的时间自动重新启动呀？？？

czcn · 2005-06-30

再写一个程序在后台运行,等时间到就启动应用程序

aricyoung · 2005-06-30

给你个思路： 时间控制可以用Timer控件，我给你一个程序关闭，然后又自己打开的一段代码，主要是以Bat的方式来执行： var  F: TextFile;  sPath, sBat: string; begin  close;//关闭程序  sPath := Trim(ExtractFilePath(Application.ExeName));  sBat := sPath + '~ExecSelf.bat';  AssignFile(F, sBat);//创建bat文件  Rewrite(F);  Writeln(F, sFile); //把程序路径写入bat文件  Writeln(F, 'del %0');//bat文件执行完自动删除本身  CloseFile(F);  winexec(Pchar(sBat), SW_HIDE);//执行bat文件 end;

dreamisx · 2005-06-30

如果你的程序已启动，则可在程序里实现（最简单的是用Timer）；还可用Windows的“任务计划”嘛。

jsw0525 · 2005-06-30

首先，非常感谢刚才发言的各位大虾！ 可能我刚才还没有说清楚我的意思，我的意思是： 我有一个程序是一天24小时都要运行的，不能停止。但由于常长时间运行，程序运行的效率就降低了，所以想通过重新启动该应用程序来提高其运行速度。我的想法是让该程序每一个月的月底的那一天的凌晨就让系统自动先自动关掉这个程序，然后再自动重新启动这个程序。不要我们自己去手动了，这样就达到了目的。不知道我是否说清楚了，谢谢各位！

jsw0525 · 2005-06-30

注意： 我的程序原来已经启动了的。现在要首先关掉它，再重新启动它。谢谢 dreamisx，你能具体给我说说吗？最好给出具体的例子，谢谢

wanghaiou · 2005-06-30

在你的这个程序里面在关闭自己的之前先启动另一程序， 另一程序启动以后立即执行你的主程序，然后把自己关闭。

wanghaiou · 2005-06-30

运行程序的语句 winexec(pchar(ExtractFilePath(Application.ExeName)+'ProcessWatch.exe'),sw_hide);

jsw0525 · 2005-06-30

TO：wanghaiou 在你的这个程序里面在关闭自己的之前先启动另一程序， 另一程序启动以后立即执行你的主程序，然后把自己关闭。   这样怎么控制哦，我用的是sockets通讯程序，如果原来的还没有完全关闭掉，又启动一个新的一样的程序，通讯会出错的。必须要把原来的程序彻底关闭掉，再重新启动才可以。 你能否给点具体的代码给我？真的感谢

jsw0525 · 2005-06-30

或者编写代码，首先检测这个程序是否在运行，如果在运行，则首先关闭。然后再启动。 我就再将这个程序放到“计划任务”里面去就可以了 （注意：关键是告诉我如何写代码检测某个程序正在运行，如运行就将这个正在运行的程序关闭，最后再重新启动运行）

leadyli · 2005-06-30

參照這個吧.

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3099103

wanghaiou · 2005-06-30

在你的主程序的主窗体的Destroy事件里写上 procedure TForm1.FormDestroy(Sender: TObject); begin   winexec('c:/setup.exe',sw_hide); end; 只有这个程序已经完全关闭以后才会执行'c:/setup.exe' 同样你在从程序主窗体的Destroy事件里也写上 winexec(主程序,sw_hide); 然后在从程序的主窗体上放个时钟控件 写上 procedure TForm1.Timer1Timer(Sender: TObject); begin   close; end; 即可

jsw0525 · 2005-06-30

我说了呀 关键要告诉我：如何写代码检测某个程序正在运行，如运行就将这个正在运行的程序关闭（要系统自己关闭自己），最后再重新启动运行

jsw0525 · 2005-06-30

强调的都是自动的，是无人操作的。不要人管的。 到一定的时候它自己就会自动关闭，然后再马上自动重新启动。不知道我是否说清楚了。 谢谢各位

wanghaiou · 2005-06-30

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons,TlHelp32; type ///////////////////////////////  TProcessInfo=Record       ExeFile:string;       ProcessID

word;   end;  ProcessInfo=^TProcessInfo;//////////  TForm1 = class(TForm)    BitBtn1: TBitBtn;  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} ////////////////////////////////////////////////////////////////////////////// //11.取得当前进程列表 ////////////////////////////////////////////////////////////////////////////// procedure ProcessList(Var pList:TList); var p

rocessInfo;    ok:Bool;    ProcessListHandle:THandle;    ProcessStruct:TProcessEntry32; begin  pList:=TList.Create;  pList.Clear;  ProcessListHandle:=CreateToolHelp32SnapShot(TH32cs_SnapProcess,0);  ProcessStruct.dwSize:=SizeOf(ProcessStruct);  ok:=Process32First(ProcessListHandle,ProcessStruct);  while integer(ok)<>0 do  begin    New(p);    p.ExeFile:=ProcessStruct.szExeFile;    p.ProcessID:=ProcessStruct.th32ProcessID;    pList.Add(p);    ok:=Process32Next(ProcessListHandle,ProcessStruct);  end; // dispose(p);  //释放内存 end; ////////////////////////////////////////////////////////////////////////////// //12.终止某一正在运行的进程 ////////////////////////////////////////////////////////////////////////////// procedure HideProcess(ProcessName:string); var h:Thandle;    a

word;    p

rocessInfo;    i:integer;    Current:TList; begin  ProcessList(current);  for i:=0 to current.Count-1 do  begin    p:=Current.Items;    if ansiuppercase(p.ExeFile)=ansiuppercase(ProcessName) then    begin      h:=OpenProcess(Process_All_Access,true,p.ProcessID);      GetExitCodeProcess(h,a);      TerminateProcess(h,a);    end;  end; end; //////////////////////////////////////////////////////////////////////////////// //13.查找进程 //////////////////////////////////////////////////////////////////////////////// function FindProcess(ProcessName:string):Bool; var  processInfo;  i:integer;  Current:TList; begin  result:=false;  ProcessList(current);  for i:=0 to current.Count-1 do  begin    p:=Current.Items;    if ansiuppercase(p.ExeFile)=ansiuppercase(ProcessName) then    begin      result:=true;      break;    end;  end;  Current.Free;  dispose(p);  //释放内存 end; end.

jsw0525 · 2005-06-30

恩，谢谢你们。我先静下心来看看。可以了马上给分。 你们可以给简单一点不，看上去怎么这么复杂呀 谢谢 等分就是了

wanghaiou · 2005-06-30

流程是 1.在主程序的主窗体上放一个时钟控件 在时钟空间里面写代码，随时判断当前日期和时间是否慢足重起条件,如果满足重起条件就执行 close; 2 在你的主程序的主窗体的Destroy事件里写上 procedure TForm1.FormDestroy(Sender: TObject); begin   winexec('从程序',sw_hide); end; 这样在主程序关闭以后就会运行你的重程序 3.作一个从程序 在从程序的主窗体的Destroy事件里写上 procedure TForm1.FormDestroy(Sender: TObject); begin   winexec('主程序',sw_hide); end; 4.在从程序的主窗体上放一个时钟控件 在时钟空间里面写代码close; 这个步骤一定可行的

jsw0525 · 2005-06-30

to:wanghaiou, 真的好感谢你！！！谢谢 开始有带内细节我没有给你说清楚，就是： 是这样的，那个服务程序是VC写的。 现在我想用delphi来实现刚才说的这功能，写点程序让VC这服务器程序在每个月的30号的凌晨2点钟（这时没有人用这程序）自动关闭这服务器程序，再马上自动重新启动起来运行。

wanghaiou · 2005-06-30

我开始有点不明白你的意思了

有没有什么办法设定应用程序在指定的时间自动重新启动呀？？？ ( 积分: 100 )

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

czcn

Unregistered / Unconfirmed

aricyoung

Unregistered / Unconfirmed

dreamisx

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

wanghaiou

Unregistered / Unconfirmed

wanghaiou

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

leadyli

Unregistered / Unconfirmed

wanghaiou

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

wanghaiou

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

wanghaiou

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

wanghaiou

Unregistered / Unconfirmed

Similar threads