Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[14313] 백그라운드로 프로그램 실행시에 종료이벤트를 받을려면요>??
음냐리 [] 2683 읽음    2012-06-24 13:23
안녕하세요. 궁금한게있는데요..
콘솔모드로는 다음의 코드에서 로그오프나, 종료시에 이벤트를 받아서 처리를 할수있는데요
콘솔모드를 주석처리하고 실행후 로그오프나 종료를 하면 저코드 를 실행이 안되는데

어떤방법으로 콘솔모드가 아닌(CMD창이 안나온) 상태로 프로세스가 있는경우 로그오프나 종료시에 어떤작업을
할려면 어떻게 해야하나요??

program Project9;
//{$APPTYPE CONSOLE}    <---주석처리시 콘솔창이 안나타나고 실행됨

uses
  Windows,
  Messages,
  SysUtils;

function EndMsg(fdwCtrlType: Cardinal): Boolean; stdcall;
begin
  Result := False;
  case fdwCtrlType of
    CTRL_LOGOFF_EVENT, CTRL_SHUTDOWN_EVENT:
      MessageBox(0, PChar('로그오프/종료'), PChar(''), 0);
  end;

end;

begin

  SetConsoleCtrlHandler(@EndMsg, True);   <--- 콘솔창이 있는경우에는 코드가 실행되는데 취에 콘솔타입을 주석처리후 실행하면 프로세스는 돌아가는데 안먹힘... 다른방법이 있으면 알려주시면 고맙겠습니다.

  while True do
    Sleep(100);

end.

+ -

관련 글 리스트
14313 백그라운드로 프로그램 실행시에 종료이벤트를 받을려면요>?? 음냐리 2683 2012/06/24
14315     Re: WM_QUERYENDSESSION 메시지가 날아옵니다. 오랑캐꽃 2258 2012/06/25
14316         Re:Re: WM_QUERYENDSESSION 메시지가 날아옵니다. 음냐리 2054 2012/06/25
14317             Re:Re:Re: WM_QUERYENDSESSION 메시지가 날아옵니다. 오랑캐꽃 1992 2012/06/25
14318                 Re:Re:Re:Re: WM_QUERYENDSESSION 메시지가 날아옵니다. 네~~~ 감사합니다 2057 2012/06/25
14320                     샘플하나만 만들어주심 정말 감사하겠습니다... 음냐리 2038 2012/06/25
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.