Get windows and system path with Delphi

The WINDOWSAPI function allows you to obtain the path to Windows and the system. In many programs need to let the program identify the system path before doing other work.

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

The following function FindWindow is used to hide and display the Windows taskbar.

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

Above in Win98 and DELPHI6 debugging pass.