用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下調試通過。