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下调试通过。
没有相关教程