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

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-15

• #1

有以下一条程序,编译时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>

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-15

• #2

pTask : TTaskEntry;<br>&nbsp; &nbsp;

 

L

lczhuohuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-15

• #3

是这样的

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-15

• #4

还是不行,delohi提示：TTaskEntry未定义.

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-16

• #5

你是不是用了第三方控件？如果是，加上它的检索路径！

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #6

没用任何第三方控件

 

L

liujinghu_ty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #7

&nbsp; 首先你的知道 TTaskEntry 在何处？<br>

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #8

没用任何第三方控件？？<br>那TTaskEntry 是你自己定义的吧？

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #9

我的程序是从网上来的，两份都一样

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #10

那就是定义TTaskEntry 的部分丢了

 

E

elan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #11

那TTaskEntry 的定义呢？

 

余

余軍安

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-17

• #12

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>

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-20

• #13

加功能 &nbsp; 将问题提前 &nbsp; &nbsp;

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-14

• #14

多人接受答案了。