[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

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)

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]