IDC资讯中心
*ModuleName:Start_Module
*ModuleFilename:Start.bas
*********************************************************
*Comments:Show/Hidethestartbutton
********************************************************
PrivateDeclareFunctionFindWindowLib”user32″Alias”FindWindowA”(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
PrivateDeclareFunctionFindWindowExLib”user32″Alias”FindWindowExA”(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLong
PrivateDeclareFunctionShowWindowLib”user32″(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong
PublicFunctionhideStartButton()
ThisFunctionHidestheStartButton
OurParent&=FindWindow(“Shell_TrayWnd”,””)
OurHandle&=FindWindowEx(OurParent&,0,”Button”,vbNullString)
ShowWindowOurHandle&,0
EndFunction
PublicFunctionshowStartButton()
ThisFunctionShowstheStartButton
OurParent&=FindWindow(“Shell_TrayWnd”,””)
OurHandle&=FindWindowEx(OurParent&,0,”Button”,vbNullString)
ShowWindowOurHandle&,5
EndFunction->
