系统信息

/*
Name:系统信息
Version:1.0
Author:lyuchen
E-mail:lyuchen@sohu.com
*/

#NoTrayIcon

RegRead, Wallppaper, HKEY_CURRENT_USER,SoftwareMicrosoftInternet ExplorerDesktopGeneral, WallpaperSource

SetBatchLines, -1  ; 使得操作以最大的速度运行。
FolderSize = 0
Loop, R:Temporary Internet Files*.*, , 1
	{
    FolderSize += %A_LoopFileSize% 
	}
IEFolderSizeMB := FolderSize//1048576

FolderSize = 0
Loop, R:Cache*.*, , 1
	{
    FolderSize += %A_LoopFileSize% 
	}
CPFolderSizeMB := FolderSize//1048576

FileGetSize, Ram, R:pagefile.sys, M

Gui, -MaximizeBox -MinimizeBox
Gui, Margin, 5, 5
Gui, Add, Text,, PageFile: %Ram% M`n`nCache: %CPFolderSizeMB% M`nIE Cache: %IEFolderSizeMB% M`n`nWallppaper: %Wallppaper%
Gui, Add, Button, y+5 gReload, 刷新
Gui, Add, Button, x+5 gBackground, 删除当前壁纸
Gui, Show, AutoSize Center, 相关信息查看
Return

GuiClose:
GuiEscape:
ExitApp
Return

Reload:
Reload
Return

Background:
FileRecycle, %Wallppaper%
Gui, Hide
MsgBox, 0,, %Wallppaper%`n已移入回收站, 1
ExitApp
Return