用Delphi获取Windows及系统路径

2016-01-29 14:23 51 1 收藏

用Delphi获取Windows及系统路径,用Delphi获取Windows及系统路径

【 tulaoshi.com - Delphi 】

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

来源:https://www.tulaoshi.com/n/20160129/1493149.html

看过《用Delphi获取Windows及系统路径》的人还看了以下文章更多>>

教你怎样查询Windows XP/Windows 7自带系统游戏路径

标签：电脑入门

Windows下面的几个系统游戏有时候在没有网络的情况下玩一下也是很不错的。如果你不小心把开始菜单里的快捷方式删了，哪怎么才能打开呢? 1、Windows XP的解决办法：游戏都存在 %SystemRoot%\system32\ 这个目录下面，找到对应的文件打开即可。红心大战 mshearts.exe 空当接龙 freecell.exe 扫雷 winmine.exe 蜘蛛纸牌 spider.exe 纸...

安全查看windows7系统进程路径的方法

标签：电脑入门

每一次重装过系统之后，各种安全卫士以及杀毒类软件都是必备的防护工具，他们可以自动拦截一些非法程序的进程，以确保计算机工作环境的安全。但是，很多时候，我们会选择绕过安全软件进行安装，比如某些考试软件，或者游戏软件。这时又担心这些软件会影响系统运行，其实，我们可以通过查看进程的方法来监控这些软件是否有问题，从而保证系统的...

让Windows8系统获取WindowsApps权限方法

标签： windows系统

让Windows8系统获取WindowsApps权限方法操作步骤当打开WindowsApps文件夹的时候系统会提示你无权进行下一步操作，接着就点击高级进入WindowsApps高级权限设置。接着就点击更改-选择用户和组 - 高级 - 立即查找找到你的用户账户名称选中修改保存即可，接着便可以访问了。如果要修改其内容的话，要在选项卡中勾选 ...

delphi实现关闭Windows

标签：编程语言网络编程

控制WINDOWS的开关：如关闭WINDOWS，重新启动WINDOWS等, ExitWindowsEx(UINT uFlags,DWORD dwReserved);是实现这一功能的API函数首先定义常数 const EWX_FORCE=4; //关闭所有程序并以其他用户身份登录 EWX_LogoFF=0; //重新启动计算机并切换到MS-DOS方式 EWX_REBOOT=2; //重新启动计算机 EWX_SHUTDOWN=1;//...

用Delphi制作Windows 98风格的工具栏

标签： Delphi

Windows98的工具栏上的按钮不仅会随鼠标的移动而凸起变化，而且按钮上图标的颜色也会随着变化。在Delphi中所提供的工具栏控件中，仅仅提供了按钮凸起变化功能，并没有提供图标颜色变换功能。笔者利用Delphi的灵活性，轻松地实现了按钮图标颜色的变化。首先，先新建一窗体Form1，在窗体中放一Toolbar控件Toolbar1，两...

查看更多精彩>>