Disable start menu

How to disable the start menu

Contributor: CHANDRAMDE@USA.NET





For some reasons, we don't want our program to be disturbed by any

program/window. Even we disable all top-level window including Win95

Taskbar, Start Menu still appear when user press Start Menu Key on keyboard.

Well, here's a trick to avoid user to start a program from Start Menu.



Procedure TForm1.Timer1Timer(Sender : TObject);

Var

   desktop, tophwnd : HWND;

Begin

   desktop := GetDesktopWindow();

   tophwnd := GetTopWindow(desktop);

   if tophwnd <> Form1.Handle then SetForegroundWindow(Form1.Handle);

End;



{Make sure Timer.Enabled is TRUE and Interval = 1}



It's not the only way to do it, but it works.



Hello, Gayle.

My name's Chandra. I'm Indonesian. ;=)



Here's my little procedure to hide Start Button :



Procedure HideStartButton;

Var

taskbarhandle,

buttonhandle : HWND;

begin

taskbarhandle := FindWindow('Shell_TrayWnd', nil);

buttonhandle := GetWindow(taskbarhandle, GW_CHILD);

ShowWindow(buttonhandle, SW_HIDE);

end;



*Replace SW_HIDE with SW_RESTORE to show it back.



Is anyone there know how to put an image or text on taskbar Win95?

Please, post it to my address. (chantit@hotmail.com)

 

Share this article!

Follow us!

Find more helpful articles: