用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下调试通过。 zmbbs=1; 　　通过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下调试通过。 zmbbs=1; 下载本文示例代码


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