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

jsw0525 · 2005-06-30

to:wanghaiou, 还有，你上面给我的这写代码编译不了

wanghaiou · 2005-06-30

提示什么错误？

jsw0525 · 2005-06-30

to:wanghaiou, 流程是 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; 这个步骤一定可行的   这些就是我的要求，你已经正确的理解了我的意思了（如果用都是用delphi的话这样完全可以了）。 不过我服务器程序是别人用VC写的，我不太会VC，但又想让VC写的这服务器程序能够自动的重新启动，就想采用delphi来实现这辅助功能。不知道、是否说清楚了。 你有QQ吗？我的QQ：27958870,加我好不？谢谢

jsw0525 · 2005-06-30

TProcessEntry32; ProcessListHandle:=CreateToolHelp32SnapShot(TH32cs_SnapProcess,0);里面的CreateToolHelp32SnapShot，TH32cs_SnapProcess ok:=Process32First(ProcessListHandle,ProcessStruct);里面的Process32First； Process32Next等没有定义

jsw0525 · 2005-06-30

to:wanghaiou, 你可以加我吗？我的QQ：27958870 你的QQ是多少？ 谢谢

wanghaiou · 2005-06-30

这是一个完整的例子 你只需要改变 time控件的事件里的相关参数就可以了 unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons,TlHelp32, ExtCtrls,DateUtils; type ///////////////////////////////  TProcessInfo=Record       ExeFile:string;       ProcessID

word;   end;  ProcessInfo=^TProcessInfo;//////////  TForm1 = class(TForm)    Timer1: TTimer;    procedure Timer1Timer(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;  //////////////////////////////////////////////////////////////////////////////  //11.取得当前进程列表  //////////////////////////////////////////////////////////////////////////////  procedure ProcessList(Var pList:TList);  //////////////////////////////////////////////////////////////////////////////  //12.终止某一正在运行的进程  //////////////////////////////////////////////////////////////////////////////  procedure HideProcess(ProcessName:string);  /////////////////////////////////////////////////////////////////////////////  //13.查找进程  //////////////////////////////////////////////////////////////////////////////  function FindProcess(ProcessName:string):Bool;    ////////////////////////////////////////////////////////////////////////////////  //23判断此日期是不是当月最后一天  ////////////////////////////////////////////////////////////////////////////////  function LastDay(Date1:Tdate):bool; 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; //////////////////////////////////////////////////////////////////////////////// //23判断此日期是不是当月最后一天 //////////////////////////////////////////////////////////////////////////////// function LastDay(Date1:Tdate):bool; var  year,month,day:word; begin  result:=false;  Decodedate(date1,year,month,day);  if DaysInAMonth(year,month)=day then  result:=true; end; procedure TForm1.Timer1Timer(Sender: TObject); var  hour,minute,second,msecond:word;     NewDirNumber:string;  begin  DecodeTime(time,hour,minute,second,msecond);  if (LastDay(date)=true) and (hour=22) and (minute=1) and (second=1) then  begin    HideProcess('Main.exe');    sleep(2000);    winexec('main.exe',Sw_hide);  end; end; end.

jsw0525 · 2005-06-30

TO：wanghaiou 写的很好。谢谢 可是我这还没有实现，你这里面的函数： //////////////////////////////////////////////////////////////////////////////// //13.查找进程 //////////////////////////////////////////////////////////////////////////////// function FindProcess(ProcessName:string):Bool; 好象没有用到呀。重新启动一个新的服务器程序时，原来的并没有关闭掉

wanghaiou · 2005-06-30

进程的名称区分大小写，不带路径

genocide · 2005-06-30

我觉得用windows的计划任务很容易实现的

wangergulei · 2005-06-30

关闭之前先启动另外一个程序，然后在那个程序中进行检测，如果进程中有你的程序，就不做操作，否则的话就启动你的程序，然后那个另外的程序自己退出去。

wanghaiou · 2005-06-30

你可以把QQ打开 然后 HideProcess('QQ.exe'); 看看有没有反映

jsw0525 · 2005-07-01

wanghaiou: 谢谢你 能不能加我呀，好象有机会在QQ上和你聊一下，好吗？ 我的QQ：27958870 你的呢？能给个机会给我吗？ 你真是高手呀，好久没有见到你这样的高人了

wanghaiou · 2005-07-01

为什么非要我QQ呀，在这里交流不好嘛！

jsw0525 · 2005-07-01

这上面交流是蛮好，主要想更好的结交你这朋友，在QQ交流起来速度快，方便些。（你放心，你加我了，我绝对不会总打扰你。说句不好听的话，如果我实在是那样你也可以把我删掉呀，你说呢？）。 谢谢

jsw0525 · 2005-07-01

谢谢各位热心兄弟

jsw0525 · 2005-07-01

谢谢大家

jsw0525 · 2005-07-01

谢谢各位

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

jsw0525

Unregistered / Unconfirmed

wanghaiou

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

wanghaiou

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

wanghaiou

Unregistered / Unconfirmed

genocide

Unregistered / Unconfirmed

wangergulei

Unregistered / Unconfirmed

wanghaiou

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

wanghaiou

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

Similar threads