网上文摘 最近更新 下载排行 资源分类 下载指南
经典编程资源 精彩不容错过
设为首页
加入收藏
联系我们
当前位置:Delphi园地技巧文章编程心得 → Delphi编程中控制Windows任务栏
Delphi编程中控制Windows任务栏
日期:2004-12-28 作者: 人气: 查看:[大字体 中字体 小字体]

Windows 9X中屏幕最下方是任务栏,用户可以对其进行一些设置。如你在任务栏上单击鼠标右键选择属性之后,在弹出的对话框中你就可以进行设置了,那么在我们所编的程序中如何来控制任务栏呢?方法便是:调用API函数。

  说明:在以下程序中使用FindWindowSetWindowPos 这两个API函数来实现在程序中控制Windows任务栏的隐藏及显示,函数的声明内容都在Windows.pas文件中。

  首先,新建工程,在默认的Form1上放上一个Button1(caption属性为隐藏任务栏)Button2(caption属性为显示任务栏),其他属性保持不变,然后输入以下程序代码:

  unit STARTBAR;

  interface

  uses WindowsMessagesSysUtilsClassesGraphicsControlsFormsDialogsStdCtrls;

  type TForm1 = class(TForm)

  Button1: TButton;

  Button2: TButton;

  procedure Button1Click(Sender: TObject);

  procedure Button2Click(Sender: TObject);

  procedure FormCreate(Sender: TObject);

  private { Private declarations }

  public { Public declarations }

  end;

  var Form1: TForm1; RET:HWND; //声明全局变量

  implementation{SR .DFM}

  procedure TForm1.FormCreate(Sender: TObject);

  begin

  RET:=FINDWINDOW(Shell_traywnd′,′′);

  end;

  procedure TForm1.Button1Click(Sender: TObject);  //隐藏任务栏

  begin

  SETWINDOWPOS(RET00000SWP_HIDEWINDOW);

  end;

  procedure TForm1.Button2Click(Sender: TObject); //显示任务栏

  begin

  SETWINDOWPOS(RET00000SWP_SHOWWINDOW);

  end;

  end.

  现在你可以运行一下(F9),当你按BUTTON1时任务栏就被隐藏了,再按一下BUTTON2就可再次显示任务栏。

  注:以上程序在中文Windows 98Delphi4.0 C/S版中调试通过。

(出处:www)

相关文章:
·移动Windows开始按钮到任务栏中的任何位置
 → 特别推荐
 → 热点TOP10
关于我们 | 广告服务 | 发布资源 | 联系站长 Copyright 2001-2012 Delphi园地 All Rights Reserved