豆豆网 > 技术应用 > 程序设计 > Delphi > delphi系统控制 > 正文

用Delphi获取Windows及系统路径

豆豆网技术应用频道 2006年07月31日【字号：小中大】收藏本文

本文详细介绍用Delphi获取Windows及系统路径

　　通过WindowsAPI函数可以获取Windows及系统的路径。在不少程序中都需要让程序先识别系统路径后再进行其他工作。

　　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下调试通过。

来源：电脑报作者：空乐责编：豆豆技术应用

正在加载评论...