Delphi中怎么样隐藏或者显示系统托盘区

Delphi中怎么样隐藏或者显示系统托盘区 问题点数：70、回复次数：2Top

1 楼yeeyee（我要换工作！）回复于 2004-05-03 21:55:54 得分 0

Delphi   6   开发人员指南里有，机械工业出版社，118  
  我还没看到那里来。Top

2 楼cym830313（黑猪小C）回复于 2004-05-03 22:04:55 得分 70

procedure   HideSysTray(visible:boolean);    
      var    
      Tray,   Child   :   hWnd;    
      C   :   array[0..127]   of   char;    
      S   :   string;    
      begin    
      Tray   :=   FindWindow('Shell_TrayWnd',   NIL);    
      Child   :=   GetWindow(Tray,   GW_CHILD);    
      While   Child   <>   0   do    
      begin    
      If   GetClassName(Child,   C,   SizeOf(C))   >   0   Then    
      Begin    
      S   :=   StrPAS(C);    
      If   UpperCase(S)   =   'TRAYNOTIFYWND'   then    
      begin    
      If   visible   then   ShowWindow(Child,   1)    
      else   ShowWindow(Child,   0);    
      end;    
      end;    
      Child   :=   GetWindow(Child,   GW_HWNDNEXT);    
      end;    
      end;    
      当自定义过程   HideSysTray()   的参数为   False   时,托盘区隐藏，参数为   True   时，托盘区显示。    
  Top

相关问题

• delphi
• 系统
• child
• 托盘区
• hidesystray
• tray
• 隐藏或者显示系统
• getwindow
• 参数
• gw

• 帖主：OLDBLACKP
• cym830313

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载