Disable Start Button

[IEM]

Hi again,

I tried to change the borderstyle of my form for disable
the start button, but don´t work.

I use SHSipPreference for the input panel. Is there
something like this for the task bar, or start button?

Thanks for all

[debbie]

Hi, Sorry about that, but I found this on a google
search...

Put this code in a module (.bas)...

' Full screen constants
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Const SHFS_SHOWTASKBAR = &H1
Private Const SHFS_HIDETASKBAR = &H2
Private Const SHFS_SHOWSIPBUTTON = &H4
Private Const SHFS_HIDESIPBUTTON = &H8
Private Const SHFS_SHOWSTARTICON = &H10
Private Const SHFS_HIDESTARTICON = &H20

' API declarations
Declare Function ShowWindow Lib "Coredll" (ByVal hWnd As
Long, ByVal
nCmdShow As Long) As Long
Declare Function FindWindow Lib "Coredll"
Alias "FindWindowW" (ByVal
lpClassName As String, ByVal lpWindowName As String) As
Long
Declare Function MoveWindow Lib "Coredll" (ByVal hWnd As
Long, ByVal X As
Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight
As Long, ByVal
bRepaint As Long) As Long
Declare Function SetForegroundWindow Lib "Coredll" (ByVal
hWnd As Long) As
Boolean
Declare Function SHFullScreen Lib "aygshell" (ByVal
hwndRequester As Long,
ByVal dwState As Long) As Boolean

Public Sub FormFullScreen(ByVal hWnd As Long, ByVal
FullScreen As Boolean)
Dim lhWnd As Long

If FullScreen Then
lhWnd = FindWindow("menu_worker", "")
ShowWindow lhWnd, SW_HIDE
lhWnd = FindWindow("HHTaskBar", "")
ShowWindow lhWnd, SW_HIDE
SetForegroundWindow hWnd
SHFullScreen hWnd, SHFS_HIDESIPBUTTON +
SHFS_HIDETASKBAR +
SHFS_HIDESTARTICON
MoveWindow hWnd, 0, 0, 240, 320, 0
Else
SHFullScreen hWnd, SHFS_SHOWSTARTICON
lhWnd = FindWindow("HHTaskBar", "")
ShowWindow lhWnd, SW_SHOW
End If
End Sub

... and then (in a form) use Call FullScreen(Me.hWnd,
True) to enable
fullscreen and FullScreen(Me.hWnd,False) to disable it
again.

This code is part of a sample from our book, and to get
more reusable
samples like this, please see
http://www.businessanyplace.net/?p=ppde

>.
>

[Andrey Yatsyk]

Yaroslav Goncharov consider how to prevent some application
from switching to other one:
http://www.pocketpcdn.com/qa/kiosk_mode.html

Andrey Yatsyk