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

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->