절대 죽지 않는 불사신 어플리케이션 제작법

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.