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