Q&A

  • 윈도우의 작업표시줄 하단 오른쪽 시계를 내프로그램으로....
제목그대로 윈도우의 작업표시줄 하단 오른쪽 시계에 시계 있지요.. 그부분을 내프로그램으로 삽입하고싶습니다..

그 시계를 보이고 안보이는 부분은 있는데... 그 프로그램을 제프로그램으로 삽입하는 것은 없는것 같아서 질문합니다..

고수님들의 자문 부탁합니다..

한가지 제가 찾은것은 시게를 보이고 안보이는 예제에 있습니다.. 참고됬습면 procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(
FindWindowEx(FindWindowEx( FindWindow('Shell_TrayWnd', nil),
HWND(0), 'TrayNotifyWnd', nil),
HWND(0), 'TrayclockWClass', nil),
Sw_Hide);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(
FindWindowEx(FindWindowEx( FindWindow('Shell_TrayWnd', nil),
HWND(0), 'TrayNotifyWnd', nil),
HWND(0), 'TrayclockWClass', nil),
Sw_show);


end;
이 게시물을
1  COMMENTS
  • Profile
    오병주 • 2002.08.12 19:03
    Tray Icon을 쓸려고 하시나보네여...

    방법은 두가지가 있습니다.

    하나. 델파이 콤퍼넌트를 사용한다
    둘.    날코딩으로 한다.

    첫번째것은 델파이 팁, 강의실, 자료실에서 Tray Icon으로
    찾아보시면 예제가 나옵니다. (본것같아요)

    두번째것은 알려드리져.

    var
      TrayIcon : TIcon;
      Time_Set : String;
    begin  
      // Tray Icon 그림을 Load한다...
      TrayIcon := TIcon.Create;
      TrayIcon.LoadFromFile('Icon이 있는 경로 와 명');

      with IconData Do
      begin
        cbSize := SizeOf(TNotifyIconData);
        Wnd    := Handle;
        uID    := 10;
        uFlags := NIF_MESSAGE+NIF_ICON+NIF_TIP;
        uCallbackMessage := WM_USER+1;
        hICON  := TrayIcon.Handle;
        szTip  := '프로젝트 명';
      end;
      Shell_NotifyIcon(NIM_ADD, @IconData);
      TrayIcon.Free;

    end;

    이렇게 하면 들어갑니다...

    그럼 즐코........
←First Page
923 924 925 926 927 928 929 930 931 932
Last Page→
한델 로그인 하기