천객만래 [千客萬來] (It has an interminable succession of visitors)
반응형
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, 000, 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.

아주 좋은 예다....
반응형
Posted by 사용자 SB패밀리

댓글을 달아 주세요