최기훈 께서 말씀하시기를...

> Window를 구현하는데 궁금한 점이 있어서 이렇게 글을 올립니다.

> 작업 표시줄 중에 오른쪽 끝에 항상 윈도우가 조그마하게 표시되어

> 필요에 따라 불러 쓸수 있습니다. 예로서 Volumn Control 같은거요.

> 뭐라고 불러야 할 지 이름도 잘 모르겠습니다.

> 아무튼, 이런 Application을 작성을 하고 싶은데 어떻게 해야 할지

> 도무지 모르겠습니다. 아시는 고수분이 계시다면 꼭좀 답변해주시면

> 고맙겠습니다.

>

> 미리 감사드리며...꾸벅~



win95의 오른쪽 귀퉁이에는 스피커의 볼륨조절과 같은 작은

아이콘들이 있습니다.. 자신의 프로그램을 그곳으로 밀어넣는

방법입니다..



먼저 트레이에서 발생하는 메세지를 받아야 하므로 메세지를

정해야 합니다. 다음줄을 {$R *.DFM} 아랫줄에 넣어주세요.

물론 그 한참 위에 넣어도 되지만 다른 유닛에서 쓸게 아니니

아랫쪽에 넣는게 좋죠.



const MY_SHOWFORM_ID = WM_USER+1;



var

iconData : TNotifyIconData;



이제 넣는 부분입니다. 다음의 코드를 FormCreate에 넣어줍니다.



procedure TfmTrayMain.FormCreate(Sender: TObject);

begin

// 폼을 트레이에 넣어준다.

ShowWindow (Application.Handle, SW_HIDE);

// 폼이 안 보임

Application.ShowMainForm:= False;

with IconData do

begin

cbSize := SizeOf ( IconData );

// 델파이에서는 Wnd로 바뀌었음

Wnd := Handle;

uID := 100;

uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;

uCallbackMessage := WM_USER + 1;

hIcon := Application.Icon.Handle;

StrPCopy(szTip, Application.Title);

end;

Shell_NotifyIcon( NIM_ADD, @IconData );

end;



procedure TfrmTrayMain.FormDestroy(Sender: TObject);

begin

Shell_NotifyIcon( NIM_DELETE, @IconData );

end;



넣기만 하면 안되겠죠.. 마우스로 클릭하면 다시 화면에 표시가

되어야 죽이든지 바꾸든지 할테니까요..

다음과 같이 다시 살릴 수 있습니다.



// 메세지 프로시져

procedure TfmTrayMain.WndProc;

begin

case Message.Msg of

MY_SHOWFORM_ID:

case Message.lParam of

WM_LBUTTONDBLCLK:Self.Show;

end;

end;

inherited;

end;



WndProc 선언부



procedure WndProc ( var Message : TMessage ); override;