用Delphi擷取Windows及系統路徑

通過WindowsAPI函數可以擷取Windows及系統的路徑。在不少程式中都需要讓程式先識別系統路徑後再進行其他工作。

Procedure TForm1.Button1ClickSenderTObject
　var
　　SysDirarray0..255of char
　begin
　　//擷取Windows路徑
　　GetWindowsDirectorySysDir255
　　Edit1.Text=SysDir
　　//擷取系統路徑
　　GetSystemDirectorySysDir255
　　Edit2.Text=SysDir
end

下面將通過函數FindWindow實現隱藏和顯示Windows工作列。

Procedure TForm1.Button1ClickSenderTObject
　var
　　WndHandleTHandle
　begin
　　//擷取工作列的視窗控制代碼
　　WndHandle=FindWindow'Shell_TrayWnd'nil
　　ShowWindowWndHandleSW_SHOW//顯示工作列
end
procedure TForm1.Button2ClickSenderTObject
　var
　　wndHandleTHandle
　begin
　　WndHandle=FindWindow'Shell_TrayWnd'nil
　　ShowWindowWndHandleSW_HIDE//隱藏工作列
end

以上在Win98和DELPHI6下調試通過。