[개발/delphi] 절대 죽지 않는 프로그램 만들기

dpr 프로젝트 파일을 아래와 같은 형태로 만들면 된다.

 

programProject1;

uses
  Forms, Windows, Messages,
  Unit1 in 'Unit1.pas'{Form1};

{$R *.res}

var
  Msg: tagMSG;
  종료금지: Boolean;

const
  WM_MYQUIT = WM_USER+2533;

begin
  종료금지:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

  while종료금지 do begin
    whilePeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin
      ifMSG.message = WM_MYQUIT then begin
        종료금지:=False;
      end
      else ifMSG.message = WM_QUIT then begin

MessageBox(0, '안죽는다!!', '개기자', MB_OK); 

      end
      else begin
           TransLateMessage(&msg);
           DispatchMessage(&msg);
      end;
    end;
    InvalidateRect(Application.Handle, nil, TRUE);
    UpdateWindow(Application.Handle);
    Application.ProcessMessages;
  end;
end.

[출처] 절대 죽지 않는 불사신 어플리케이션 제작법|작성자 쿠핑

아주 좋은 예다....