如何关闭所有正在运行的程序(10分)

  • 主题发起人 主题发起人 jingtao
  • 开始时间 开始时间
J

jingtao

Unregistered / Unconfirmed
GUEST, unregistred user!
有以下一条程序,编译时pTask : PTaskEntry出错,why?<br><br>(运行此程序前请保存所有修改过的文件)<br>procedure TForm1.ButtonKillAllClick(Sender: TObject);<br>var<br>&nbsp; &nbsp; pTask : PTaskEntry;<br>&nbsp; &nbsp; Task : Bool;<br>&nbsp; &nbsp; ThisTask: THANDLE;<br>begin<br>&nbsp; &nbsp; GetMem (pTask, SizeOf (TTaskEntry));<br>&nbsp; &nbsp; pTask^.dwSize := SizeOf (TTaskEntry);<br><br>&nbsp; &nbsp; Task := TaskFirst (pTask);<br>&nbsp; &nbsp; while Task do<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; if pTask^.hInst = hInstance then<br>&nbsp; &nbsp; &nbsp; &nbsp; ThisTask := pTask^.hTask<br>&nbsp; &nbsp; else<br>&nbsp; &nbsp; &nbsp; &nbsp; TerminateApp (pTask^.hTask, NO_UAE_BOX);<br>&nbsp; &nbsp; &nbsp; &nbsp; Task := TaskNext (pTask);<br>&nbsp; &nbsp; end;<br>&nbsp; &nbsp; TerminateApp (ThisTask, NO_UAE_BOX);<br>end;<br>
 
pTask : TTaskEntry;<br>&nbsp; &nbsp;
 
是这样的
 
还是不行,delohi提示：TTaskEntry未定义.
 
你是不是用了第三方控件？如果是，加上它的检索路径！
 
没用任何第三方控件
 
&nbsp; 首先你的知道 TTaskEntry 在何处？<br>
 
没用任何第三方控件？？<br>那TTaskEntry 是你自己定义的吧？
 
我的程序是从网上来的，两份都一样
 
那就是定义TTaskEntry 的部分丢了
 
那TTaskEntry 的定义呢？
 
DELPHI:<br>&nbsp; &nbsp; &nbsp; &nbsp;application.terminate;關閉所有應用程式<br><br>&nbsp; &nbsp; &nbsp; &nbsp;Exitwindowsex(EWX_REBOOT,0);操作系統重新啟動<br><br>&nbsp; &nbsp; &nbsp; &nbsp;Exitwindowsex(EWX_SHUTDOWN,0);關閉操作系統<br>
 
加功能 &nbsp; 将问题提前 &nbsp; &nbsp;
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

I
关闭所有正在运行的程序
回复
0
查看
570
import
I
I
当前正在运行的程序的文件名列表
回复
0
查看
517
import
I
I
如何在你的程序窗口之前拦截消息
回复
0
查看
609
import
I
I
可执行文件的自修改
回复
0
查看
711
import
I
T
谁来帮我看看我Hook窗口创建的代码有什么错误？能Hook成功，只是会导致资源管理器错误(100分)
回复
0
查看
573
testman
T
后退
顶部