一个没有窗体的程序一运行就关掉了,可不可以不让它关掉,(急) ( 积分: 100 )

我要学 · 2005-08-28

我用控制台写了一个程序,这样的好外是文件比较小. 但这样的程序一运行就关掉了,可不可以不让它关掉, 如果可以的话,能不能像时间控件一样反复执行一些代码?

我要学 · 2005-08-28

我用控制台写了一个程序,这样的好外是文件比较小. 但这样的程序一运行就关掉了,可不可以不让它关掉, 如果可以的话,能不能像时间控件一样反复执行一些代码?

ymjy · 2005-08-28

做循环消息处理

ymjy · 2005-08-28

比较次的方法，把下面保存为Project1.dpr，打开后运行 program Project1; uses  Forms,Windows,Dialogs; var  OldTickCount: Longint; const MSec=1000;//每秒钟运行一次你的代码 {$R *.RES} begin  Application.Initialize;  OldTickCount := GetTickCount;  while true do  begin    Application.ProcessMessages;    if GetTickCount-OldTickCount<MSec then    begin      OldTickCount:=GetTickCount;      //你自己的代码    end;  end; end.

我要学 · 2005-08-28

好像还有点问题, 我让它10秒执行一次 SHOWMESSAGE(''); 但却不断的弹出,不过,还是先给分

我要学 · 2005-08-28

不行啊,大哥,我什么代码都没加,CPU占用98% 还是帮我搞定吧,另开贴给分

我要学 · 2005-08-28

还有,所生成的EXE达三百多K.跟有窗体没两样

ymjy · 2005-08-29

uses里面有Forms和Dialogs单元，生成exe大，占用CPU大是因为其中有一个循环，不过循环中有Application.ProcessMessages;还是不影响速度，但毕竟CPU占了太多，所以我说是比较次的方法。

ymjy · 2005-08-29

对话框不断弹出是因为大于号小于号搞错了 应该是 if GetTickCount-OldTickCount>MSec then

ymjy · 2005-08-29

要exe体积小，去掉dialogs单元就可以了，不过你要证明代码的确是每隔几秒就被执行行，调试的时候可以把dialogs加上，这样可以用showmessage来弹出一个对话框。 最简单的程序只要一个windows单元就，exe不到10K，不占用CPU，可以加上时钟每隔几秒执行一次代码。 你到http://bbs.eston.com.cn 去发个贴，我把代码贴给你，我不要你的分，算你帮我一个忙吧，大哥 [

]。

我要学 · 2005-08-29

好了,开好了 这网站是大富翁的克隆吧,是你的吗? http://www.eston.com.cn/bbs/dispq.asp?lid=153

ymjy · 2005-08-29

我用的是大富翁的源码

一个没有窗体的程序一运行就关掉了,可不可以不让它关掉,(急) ( 积分: 100 )

我要学

Unregistered / Unconfirmed

我要学

Unregistered / Unconfirmed

ymjy

Unregistered / Unconfirmed

ymjy

Unregistered / Unconfirmed

我要学

Unregistered / Unconfirmed

我要学

Unregistered / Unconfirmed

我要学

Unregistered / Unconfirmed

ymjy

Unregistered / Unconfirmed

ymjy

Unregistered / Unconfirmed

ymjy

Unregistered / Unconfirmed

我要学

Unregistered / Unconfirmed

ymjy

Unregistered / Unconfirmed

Similar threads