想寫一各在程式關閉的時候會詢問你

是否確定要關閉 Y/N

按Y 程式才可以關閉
按N程式不關閉

該怎麼寫呢

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

您好! 不知是不是您想要的:

if Application.MessageBox('是否確定要關閉 Y/N','MessageBox',4)=6 then
application.Terminate;

編輯記錄

其实很简单的啊，你可以这么写

[code delphi]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageBox(handle,'真的要退出系统 吗？','退出系统',MB_YESNO MB_ICONQUESTION)=id_yes then
begin
application.Terminate;
end else
begin
abort;
end;
end;
[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

我是這樣做的
If Messagedlg('離開系統作業,確認請按 " YES " 放棄按 " NO " ',mtinformation,[mbyes,mbno],0)=mryes then
BEGIN

END
YES 離開系統
NO 繼續作業