[Delphi]Form이 없는 윈도우 종료 감지하기

program test;

uses  Windows, classes;

var AppEnd : Boolean;

{$R *.res}

function CtrlHandler(fdwCtrlType: DWORD): Boolean;
begin

   case fdwCtrlType of
   CTRL_C_EVENT ,
   CTRL_CLOSE_EVENT ,
   CTRL_BREAK_EVENT ,
   CTRL_LOGOFF_EVENT ,
   CTRL_SHUTDOWN_EVENT : begin
                                                AppEnd := False;
                                       end;
   else  Result := False;
   end;//end case
end;

begin
        AppEnd := True;
         SetConsoleCtrlHandler(@CtrlHandler, TRUE);

          while AppEnd do begin
                sleep(10);
                //무언가를 한다.
         end;//end while
end.