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

上一篇： Delphi设计PhotoShop型弹出菜单
下一篇： 快捷方式/删除项/EXE自删除DIY

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有