请问如何让程序在运行是缩小到任务拦的右下边????(50分)

  • 主题发起人 主题发起人 gogir
  • 开始时间 开始时间
  Windows 95 和 Windows NT 4.0包含一个令人兴奋的特性:任务栏。这个通常位于区域任务条右面的区域能包含小的图标,这些图标能引出大的应用程序或者菜单。本篇文章主要讨论如何使用Delphi建立这样的应用程序。

  在开始之前,请看下面的需要的接口方面的内容:

  从技术方面来说,一个任务栏应用程序非常象普通的应用程序,它有一个消息循环,相应Windows的消息来完成相应的功能。
Procedure RunTrayApplication;
Var Msg : TMsg;
Begin
 CreateWindow;
 AddTrayIcon;
 While GetMessage(Msg,0,0,0) do Begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
 End;
 DeleteTrayIcon;
End

你能看到:所有需要做的工作是创建一个窗口,注册一个图标到任务栏,设置它的消息循环,最后关闭它。当然,必须还有增加其他代码完成相应的功能,但是,它是真的不需要担心。

  让我们从窗口的创建开始。实际上,这个窗口是不是能在任务栏上能见到的窗口。相应的,这个窗口只是处理消息循环、其它父类的工作。任务窗口(Windows 95 & NT)句柄创建消息(例如鼠标单击等)和将消息发到我们的窗口。

Procedure CreateWindow;
Var
 WC : TWndClass;
 W : hWnd;
Begin
 With WC do Begin
  Style := 0;
  lpfnWndProc := @WndProc;
  cbClsExtra := 0;
  cbWndExtra := 0;
  hIcon := 0;
  hCursor := 0;
  hbrBackground := 0;
  lpszMenuName := nil;
  lpszClassName := 'MyTrayIconClass';
  hInstance := System.hInstance;
 end;
 RegisterClass(WC);
 W := Windows.CreateWindow('MyTrayIconClass','MyVeryOwnTrayIconWindow',
              ws_OverlappedWindow,0,0,0,0,0,0,hInstance,nil);
 ShowWindow(W,sw_Hide);
 UpdateWindow(W);
 MainWindow := W;
End;这个窗口使用普通的窗口函数创建。注意这个窗口的类型是“ws_OverlappedWindow”,但是这个尺寸是0,并且它是隐藏的,所有,它将不会显示出来。
  下一步是加(注册)我们的图标。这将需要使用Shell_NotifyIcon这个API函数,这个函数实际上可以完成三个功能,这里只需要它的增加的特性。

Procedure AddTrayIcon;
Var IconData : TNotifyIconData;
Begin
 With IconData do Begin
  cbSize := SizeOf(IconData);
  Wnd := MainWindow;
  uID := 0;
  uFlags := nif_Icon Or nif_Message Or nif_Tip;
  uCallBackMessage := wm_MyCallBack;
  hIcon := LoadIcon(hInstance,'MYICON');
  StrCopy(szTip,PChar(TrayIconTip));
 End;
 Shell_NotifyIcon(nim_Add,@IconData);
End;
这个最重要的事情是TNotifyIconData的数据结构,它是一个设置Window句柄的数据结构,是一个记录参数,对我们来说,我们需要设置这个图标的窗口句柄(这将定义哪个窗口处理消息循环),回调消息号,图标,工具提示等。一旦这个数据设置了,我们就可以增加一个图标到任务栏上了。为了完成这个工作,使用nim_Add程序。   现行我们已经加了我们的图标到任务栏,下面需要决定如何处理消息。
Const
 wm_MyCallback = wm_User+1000;
 cm_Exit    = 100; { we worry about... }
 cm_About   = 101; { ...these later  }
这个实际的窗口处理过程也是相当普通。几个窗口消息(如wm_NCCreate)必须处理。然而,对我们来说,更重要的事情是处理wm_MyCallback和wm_Command消息:
Function WndProc(Window : hWnd; Msg,WParam,LParam : Integer): Integer; StdCall;
Begin
 Result := 0;
 Case Msg of
  wm_NCCreate  : Result := 1;
  wm_Destroy  : PostQuitMessage(0);
  wm_Command  : Begin { a command was chosen from the popup menu }
           If (WParam = cm_Exit) Then
            PostMessage(Window,wm_Destroy,0,0)
           Else If (WParam = cm_About) Then
            MessageBox(0,'Shell Test Copyright ?'+
                  'Jani J鋜vinen 1996.',
                  'About Shell Test',mb_OK)
           Else OpenDesktopIcon(WParam-cm_About);
          End;
  wm_MyCallback : Begin { our icon was clicked }
           If (LParam = wm_LButtonDown) Then
            ShowIconPopupMenu
           Else If (LParam = wm_RButtonDown) Then
            ShowAboutPopupMenu;
          End;
  Else Result := DefWindowProc(Window,Msg,WParam,LParam);
 End;
End;
就象你看到的一样,当用户单击图标时,Windows提示我们。注意我们不使用通常使用的wm_LButtonDown 消息,而使用wm_MyCallback message,详细的消息信息存储在LParam参数中。
  当用户单击鼠标右键,我们创建一个菜单在桌面上。



全文请见:www.cx66.com
 
使用控件方便,记得rxlib,lmd中就有相应的控件
 
呵呵,已经说的够详细了,应该没有什么问题了把?
 
后退
顶部