怎么样停止程序运行？

[sunboy2002]

在我的界面中有一个进度条正在拷贝文件，旁边有一个取消button,我想在拷贝的过程中可以终止拷贝，请问button的onclick事件怎么写？

[wenxj]

Application.Terminate;

[huangrenguang]

BOOL TerminateProcess(

HANDLE hProcess, // handle to the process
UINT uExitCode // exit code for the process
);

[huangrenguang]

BOOL TerminateThread(

HANDLE hThread, // handle to the thread
DWORD dwExitCode // exit code for the thread
);

[wangzn1979]

揭帖拉

[windstrom]

the following code shuts down the application when anexception is not caught and handled.
当异常没有被捕抓到或是被关闭下面的代码会关闭该应用程序

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;

end;

procedure TForm1.AppException(Sender: TObject; E: Exception);

begin
Application.ShowException(E);
Application.Terminate;
end;

[windstrom]

Ends application execution.
结束应用程序执行 ----->>>取之DELPHI的帮助

procedure Terminate;