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