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