如何实现托盘(0)

如何实现托盘

兄弟：要不先去挣点儿分再来？

缩在托盘如何弹出啊

使用控件啊。也可以自己用消息实现。可以加我QQ83156166给你发过去

啊？用trayIcon，看看帮助或者DEMO，其实非常简单了

告诉邮箱，我给你发一个，我也刚做完一个，效果不错

下面两个文件分别保存，安装组件就行(这是前些年买的一张光盘中的托盘组件，好象是一个老外的作品，个人感觉不错)unit Shell32;interfaceuses Windows;const NIM_ADD = 0; NIM_MODIFY = 1; NIM_DELETE = 2; NIF_MESSAGE = 1; NIF_ICON = 2; NIF_TIP = 4;type PNotifyIconData = ^TNotifyIconData; TNotifyIconData = record cbSize: DWORD; Wnd: HWND; uID: UINT; uFlags: UINT; uCallbackMessage: UINT; hIcon: HICON; szTip: array [0..64] of Char; end;function Shell_NotifyIcon(dwMessage: DWORD; lpData: PNotifyIconData): BOOL; stdcall;implementationconst Shell32Dll = 'Shell32.dll';function Shell_NotifyIcon; stdcall; external Shell32Dll name 'Shell_NotifyIconA';end.unit NotifyIcon;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Shell32, Menus, CommCtrl, MMSystem;type ENotifyIconError = class(Exception); TNotifyIcon = class(TComponent) protected // Property fields FActive: Boolean; FAnimated: Boolean; FAnimateDelay: Integer; FAnimatePriority: TThreadPriority; FHint: string; FIconIndex: Integer; FImageList: TImageList; FMinFormToTray: Boolean; FPopupMenu: TPopupMenu; // Event fields FOnDblClick: TNotifyEvent; FOnMouseDown: TMouseEvent; FOnMouseUp: TMouseEvent; // New fields IconThread: TThread; NewFormProc: Pointer; OldFormProc: TFarProc; Wnd: HWnd; // Write methods procedure SetActive(Value: Boolean); procedure SetAnimated(Value: Boolean); procedure SetAnimateDelay(Value: Integer); procedure SetAnimatePriority(Value: TThreadPriority); procedure SetHint(Value: string); procedure SetIconIndex(Value: Integer); procedure SetImageList(Value: TImageList); procedure SetMinFormToTray(Value: Boolean); procedure SetPopupMenu(Value: TPopupMenu); // Overriden methods procedure Loaded; override; procedure Notification(AComponent: TComponent; Operation: TOperation); override; // New methods function GetTrayNotifyRect: TRect; procedure HookWndProc(var Msg: TMessage); procedure Modify(IconProps: Boolean); procedure MouseDown(Button: TMouseButton; Shift: TShiftState); procedure MouseUp(Button: TMouseButton; Shift: TShiftState); procedure NotifyIconProc(var Msg: TMessage); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Minimize; procedure Restore; published property Active: Boolean read FActive write SetActive; property Animated: Boolean read FAnimated write SetAnimated; property AnimateDelay: Integer read FAnimateDelay write SetAnimateDelay default 50; property AnimatePriority: TThreadPriority read FAnimatePriority write SetAnimatePriority default tpNormal; property Hint: string read FHint write SetHint; property IconIndex: Integer read FIconIndex write SetIconIndex; property ImageList: TImageList read FImageList write SetImageList; property MinFormToTray: Boolean read FMinFormToTray write SetMinFormToTray; property PopupMenu: TPopupMenu read FPopupMenu write SetPopupMenu; property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick; property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown; property OnMouseUp: TMouseEvent read FOnMouseUp write FOnMouseUp; end;procedure Register;implementationconst CM_NOTIFYICON = WM_USER + 100;procedure Register;begin RegisterComponents('Bufi', [TNotifyIcon]);end; { Register }{ TNotifyIconThread }type TNotifyIconThread = class(TThread) protected // Animate options Animated: Boolean; Delay: Integer; // Icon properties Hint: string; IconIndex: Integer; ImageList: HImageList; Wnd: HWnd; // Modify flag Modified: Boolean; procedure Execute; override; public constructor Create(AWnd: HWnd); procedure SetAnimationOptions(AAnimated: Boolean; ADelay: Integer); procedure SetIconProps(const AHint: string; AIconIndex: Integer; AImageList: HImageList); end;constructor TNotifyIconThread.Create(AWnd: HWnd);begin Wnd := AWnd; inherited Create(False);end; { TNotifyIconThread.Create }procedure TNotifyIconThread.SetAnimationOptions(AAnimated: Boolean; ADelay: Integer);begin Animated := AAnimated; if Animated then Delay := ADelay else Delay := 50;end; { TNotifyIconThread.SetAnimationOptions }procedure TNotifyIconThread.SetIconProps(const AHint: string; AIconIndex: Integer; AImageList: HImageList);begin Hint := AHint; IconIndex := AIconIndex; ImageList := AImageList; Modified := True;end; { TNotifyIconThread.SetIconProps }procedure TNotifyIconThread.Execute;var IconData: TNotifyIconData; AniIconIndex: Integer;begin AniIconIndex := 0; with IconData do begin cbSize := SizeOf(IconData); Wnd := Self.Wnd; uID := 0; uFlags := NIF_MESSAGE or NIF_TIP or NIF_ICON; uCallbackMessage := CM_NOTIFYICON; hIcon := 0; szTip := ''; end; Shell_NotifyIcon(NIM_ADD, @IconData); repeat if Modified then with IconData do begin StrLCopy(szTip, PChar(Hint), SizeOf(szTip) - 1); if not Animated then begin DestroyIcon(hIcon); hIcon := ImageList_GetIcon(ImageList, IconIndex, ILD_TRANSPARENT); Shell_NotifyIcon(NIM_MODIFY, @IconData); end; Modified := False; end; if Animated then with IconData do begin DestroyIcon(hIcon); hIcon := ImageList_GetIcon(ImageList, AniIconIndex, ILD_TRANSPARENT); Shell_NotifyIcon(NIM_MODIFY, @IconData); Inc(AniIconIndex); if (AniIconIndex >= ImageList_GetImageCount(ImageList)) then AniIconIndex := 0; end; Sleep(Delay); until Terminated; Shell_NotifyIcon(NIM_DELETE, @IconData);end; { TNotifyIconThread.Execute }{ TNotifyIcon }constructor TNotifyIcon.Create(AOwner: TComponent);begin inherited Create(AOwner); FAnimateDelay := 50; FAnimatePriority := tpNormal; Wnd := AllocateHWnd(NotifyIconProc);end; { TNotifyIcon.Create }procedure TNotifyIcon.Loaded;begin inherited Loaded; Modify(True);end; { TNotifyIcon.Loaded }destructor TNotifyIcon.Destroy;begin SetActive(False); if Assigned(Owner) and Assigned(OldFormProc) then begin SetWindowLong((Owner as TForm).Handle, GWL_WNDPROC, LongInt(OldFormProc)); if Assigned(NewFormProc) then FreeObjectInstance(NewFormProc); end; DeallocateHWnd(Wnd); inherited Destroy;end; { TNotifyIcon.Destroy }function TNotifyIcon.GetTrayNotifyRect: TRect;var ShellTrayWnd, TrayNotifyWnd: HWnd;begin ShellTrayWnd := FindWindow('Shell_TrayWnd', ''); TrayNotifyWnd := FindWindowEx(ShellTrayWnd, 0, 'TrayNotifyWnd', ''); GetWindowRect(TrayNotifyWnd, Result);end; { TNotifyIcon.GetTrayNotifyRect }procedure TNotifyIcon.Minimize;begin // Play the system sound and then the animation PlaySound('Minimize', 0, SND_ALIAS or SND_ASYNC or SND_NODEFAULT or SND_NOWAIT); with (Owner as TForm) do DrawAnimatedRects(Handle, IDANI_CAPTION, BoundsRect, GetTrayNotifyRect); if (Owner = Application.MainForm) then begin Application.Minimize; ShowWindow(Application.Handle, SW_HIDE); end else ShowWindow((Owner as TForm).Handle, SW_HIDE); Active := True;end; { TNotifyIcon.Minimize }procedure TNotifyIcon.Restore;begin // Play the system sound and then the animation PlaySound('RestoreUp', 0, SND_ALIAS or SND_ASYNC or SND_NODEFAULT or SND_NOWAIT); with (Owner as TForm) do DrawAnimatedRects(Handle, IDANI_CAPTION, GetTrayNotifyRect, BoundsRect); if (Owner = Application.MainForm) then begin ShowWindow(Application.Handle, SW_SHOW); Application.Restore; (Owner as TForm).Visible := True; end else ShowWindow((Owner as TForm).Handle, SW_SHOW); (Owner as TForm).Update; Active := False;end; { TNotifyIcon.Restore }procedure TNotifyIcon.HookWndProc(var Msg: TMessage); procedure InheritedProc; begin with Msg do Result := CallWindowProc(OldFormProc, (Owner as TForm).Handle, Msg, wParam, lParam); end; { InheritedProc }begin with Msg do case Msg of WM_SYSCOMMAND: if (wParam = SC_MINIMIZE) then Minimize else InheritedProc; else InheritedProc; end;end; { TNotifyIcon.HookWndProc }procedure TNotifyIcon.Modify(IconProps: Boolean);var ImageListHandle: HImageList;begin if FActive then begin if not Assigned(IconThread) then IconThread := TNotifyIconThread.Create(Wnd); TNotifyIconThread(IconThread).SetAnimationOptions(FAnimated, FAnimateDelay); if IconProps then begin if Assigned(FImageList) then ImageListHandle := FimageList.Handle else ImageListHandle := 0; TNotifyIconThread(IconThread).SetIconProps(FHint, FIconIndex, ImageListHandle); end; IconThread.Priority := FAnimatePriority; end else if Assigned(IconThread) then begin IconThread.Free; IconThread := nil; end;end; { TNotifyIcon.Modify }procedure TNotifyIcon.Notification(AComponent: TComponent; Operation: TOperation);begin inherited Notification(Acomponent, Operation); if (Operation = opRemove) then begin if (AComponent = FImageList) then ImageList := nil else if (AComponent = FPopupMenu) then PopupMenu := nil; end;end; { TNotifyIcon.Notification }procedure TNotifyIcon.SetActive(Value: Boolean);begin if (Value <> FActive) then begin FActive := Value; Modify(True); end;end; { TNotifyIcon.SetActive }procedure TNotifyIcon.SetAnimated(Value: Boolean);begin if (Value <> FAnimated) then begin FAnimated := Value; Modify(False); end;end; { TNotifyIcon.SetAnimated }procedure TNotifyIcon.SetAnimateDelay(Value: Integer);begin if (Value <> AnimateDelay) then begin FAnimateDelay := Value; Modify(False); end;end; { TNotifyIcon.SetAnimateDelay }procedure TNotifyIcon.SetAnimatePriority(Value: TThreadPriority);begin if (Value <> FAnimatePriority) then begin FAnimatePriority := Value; Modify(False); end;end; { TNotifyIcon.SetAnimatePriority }procedure TNotifyIcon.SetHint(Value: string);begin if (Value <> FHint) then begin FHint := Value; Modify(True); end;end; { TNotifyIcon.SetHint }procedure TNotifyIcon.SetIconIndex(Value: Integer);begin if (Value <> FIconIndex) then begin FIconIndex := Value; Modify(True); end;end; { TNotifyIcon.SetIconIndex }procedure TNotifyIcon.SetImageList(Value: TImageList);begin if (Value <> FImageList) then begin FImageList := Value; if Assigned(Value) then Value.FreeNotification(Self); Modify(True); end;end; { TNotifyIcon.SetImageList }procedure TNotifyIcon.SetMinFormToTray(Value: Boolean);begin if (Value <> FMinFormToTray) then begin FMinFormToTray := Value; if FMinFormToTray then begin if not (Owner is TForm) then raise ENotifyIconError.Create('Owner must be a form'); OldFormProc := TFarProc(GetWindowLong((Owner as TForm).Handle, GWL_WNDPROC)); NewFormProc := MakeObjectInstance(HookWndProc); SetWindowLong((Owner as TForm).Handle, GWL_WNDPROC, LongInt(NewFormProc)); end else if Assigned(OldFormProc) then begin SetWindowLong((Owner as TForm).Handle, GWL_WNDPROC, LongInt(OldFormProc)); OldFormProc := nil; if Assigned(NewFormProc) then FreeObjectInstance(NewFormProc); NewFormProc := nil; end; end;end; { TNotifyIcon.SetMinFormToTray }procedure TNotifyIcon.SetPopupMenu(Value: TPopupMenu);begin if (Value <> FPopupMenu) then begin FPopupMenu := Value; if Assigned(Value) then Value.FreeNotification(Self); end;end; { TNotifyIcon.SetPopupMenu }procedure TNotifyIcon.MouseDown(Button: TMouseButton; Shift: TShiftState);var P: TPoint;begin GetCursorPos(P); if Assigned(FOnMouseDown) then FOnMouseDown(Self, Button, Shift, P.X, P.Y);end; { TNotifyIcon.MouseDown }procedure TNotifyIcon.MouseUp(Button: TMouseButton; Shift: TShiftState);var P: TPoint;begin GetCursorPos(P); if Assigned(FOnMouseUp) then FOnMouseUp(Self, Button, Shift, P.X, P.Y); if (Button = mbRight) and Assigned(FPopupMenu) then begin SetForegroundWindow(Wnd); FPopupMenu.PopupComponent := Self; FPopupMenu.Popup(P.X, P.Y); SetForegroundWindow(Application.Handle); end else if (Button = mbLeft) and FMinFormToTray then Restore;end; { TNotifyIcon.MouseUp }procedure TNotifyIcon.NotifyIconProc(var Msg: TMessage);var Shift: TShiftState; Down: boolean; Button: TMouseButton;begin if (Msg.Msg = CM_NOTIFYICON) then begin case Msg.lParam of WM_LBUTTONDOWN: begin Button := mbLeft; Down := True; end; WM_LBUTTONUP: begin Button := mbLeft; Down := False; end; WM_MBUTTONDOWN: begin Button := mbMiddle; Down := True; end; WM_MBUTTONUP: begin Button := mbMiddle; Down := False; end; WM_RBUTTONDOWN: begin Button := mbRight; Down := True; end; WM_RBUTTONUP: begin Button := mbRight; Down := False; end; WM_LBUTTONDBLCLK: begin if Assigned(FOnDblClick) then FOnDblClick(Self); Exit; end; else Exit; end; Shift := KeysToShiftState(Msg.WParam); if Down then MouseDown(Button, Shift) else MouseUp(Button, Shift); end else with Msg do Result := DefWindowProc(Wnd, Msg, WParam, LParam);end; { TNotifyIcon.NotifyIconProc }end.