Hide Start Button 3

[ahhchu]

I have seen procs to disable and enable the Start button. Ids there a simple call to hide the Start button. I have users that need to be controlled

Thanks !

 

[svanels]

procedure HideStart(visible: boolean);
var TaskbarHandle, ButtonHandle : HWND;
begin
TaskbarHandle := FindWindow('Shell_TrayWnd',nil);
ButtonHandle := GetWindow(taskbarhandle,GW_CHILD);
if visible = true then
ShowWindow(buttonhandle,SW_RESTORE) //show button
else
ShowWindow(buttonhandle,SW_HIDE); //hide button
end;

Regards S. van Els
SAvanEls@cq-link.sr

 

[ahhchu]

Thanks for the help I really appreciate it !!!

ahhchu!