利用API函数实现隐藏和显示桌面图标

文章出处：网络转载 作者：未知　发布时间：2006-07-28 收藏到QQ书签

PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
PrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong
PrivateConstSW_HIDE=0
PrivateConstSW_RESTORE=9

'隐藏桌面图标
PrivateSubCommand1_Click()
DimHwdAsLong
DimrtnAsLong
Hwd=FindWindow("Progman",vbNullString)
rtn=ShowWindow(Hwd,SW_HIDE)
EndSub

'显示桌面图标
PrivateSubCommand2_Click()
DimHwdAsLong
DimrtnAsLong
Hwd=FindWindow("Progman",vbNullString)
rtn=ShowWindow(Hwd,SW_RESTORE)
EndSub->