delphi 关闭(close或点叉)操作并不难销毁进程,

   所以建议在delphi编程中为每个主form(登录,界面)加close事件

   

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;