首页 ┆ 教育新闻 ┆ 课件中心 ┆ 论文中心 ┆ 教学教案 ┆ 试题中心 ┆ 语文专题 ┆ 综合下载 ┆ 技术教程 ┆ 公务员

技术：	数据库综合 \| 病毒防治 \| 网络安全 \| 网络相关 \| 软件开发 \| 网站建设 \| 操作系统 \| 办公软件 \| 软件教程 \| 医学试题

您当前的位置：中国教育资源网 -> 技术教程 -> 软件开发 -> Delphi -> 技术内容

退出登录

用户管理

用Delphi获取Windows及系统路径Delphi教程

论文作者：佚名论文来源：不详论文发布时间：2006-6-19 22:22:36 论文发布人：chjchjchj

减小字体增大字体

Procedure TForm1.Button1ClickSenderTObject　
　var
　　SysDirarray0..255of char
　begin
　　//获取Windows路径
　　GetWindowsDirectorySysDir255　
　　Edit1.Text=SysDir
　　//获取系统路径
　　GetSystemDirectorySysDir255　
　　Edit2.Text=SysDir
end
　　下面将通过函数FindWindow实现隐藏和显示Windows任务栏。

Procedure TForm1.Button1ClickSenderTObject　
　var
　　WndHandleTHandle
　begin
　　//获取任务栏的窗口句柄
　　WndHandle=FindWindowShell_TrayWndnil　
　　ShowWindowWndHandleSW_SHOW　//显示任务栏
end

procedure TForm1.Button2ClickSenderTObject　
　var
　　wndHandleTHandle
　begin
　　WndHandle=FindWindowShell_TrayWndnil　
　　ShowWindowWndHandleSW_HIDE　//隐藏任务栏
end
　　以上在Win98和DELPHI6下调试通过。

[] [返回上一页] [打印] [收藏] 　

上一篇技术：Delphi编程访问注册表Delphi教程

下一篇技术：用Delphi实现软件的在线升级Delphi教程

∷相关技术评论

　（评论内容只代表网友观点，与本站立场无关！） [查看发表评论...]

站内广告

站内搜索

栏目导航

· C	· Delphi
· Java	· vb

相关技术
· 利用Delphi编程发送 · 用Delphi 3.0编制MP · 用Delphi制作动态有 · 用Delphi4实现风Wor · 用Delphi检测IE使用 · 用Delphi制作DLL的方 · 教你如何用Delphi生 · 用Delphi制作中国式 · 用Delphi编程时如何 · 资源文件在DELPHI中