---

Hej

Er ved at lave et lille "login" program som skal fylde hele skærmen og altid
ligge i forgruden og ikke må kunne afsluttes med CTRL+ALT+DELETE eller alt
F4


Spørgsmålet er så:

1. Hvordan blokerer jeg for CTRL+ALT+DELETE og ALT+F4

2. Hvordan får jeg min form til altid at være øverst (Always on TOP)

på forhånd tak

/Thomas

---

On Mon, 29 Oct 2001 13:51:44 +0100, "Thomas Nielsen"
<thomas@websup.dk> wrote:


>Er ved at lave et lille "login" program som skal fylde hele skærmen og altid
>ligge i forgruden og ikke må kunne afsluttes med CTRL+ALT+DELETE eller alt
>F4

Det lyder da som en ikke særlig god idé. Hvorfor ikke istedet lave
programmet, så det ikke fremgår af joblisten ?

mvh
Morten Snedker

---

Hvis du vil gøre sådan at dit program ikke kan lukkes, skal du bruge
event'en QueryUnload.
her sætter du:
Cancel = Not Cancel
Du får også en parameter for hvorfor programmet bliver lukket, fra MSDN:
Constant Value Description

vbFormControlMenu = 0: The user chose the Close command from the Control
menu on the form.
vbFormCode = 1: The Unload statement is invoked from code.
vbAppWindows = 2: The current Microsoft Windows operating environment
session is ending.
vbAppTaskManager = 3: The Microsoft Windows Task Manager is closing the
application.
vbFormMDIForm = 4: An MDI child form is closing because the MDI form is
closing.
vbFormOwner = 5: A form is closing because its owner is closing.

hvis du vælger cancel på vbAppWindows, så annuleres en nedlukning af
windows. Du kan lukke programmet, ved at forsøge at lukke det flere gange
med CTRL+ALT+DELETE, hvorefter du får boksen "programmet svarer ikke"
frem...

"Morten Snedker" <morten_nospam@dbconsult.dk> skrev i en meddelelse
news:3be025e8.24813489@news.inet.tele.dk...
> On Mon, 29 Oct 2001 13:51:44 +0100, "Thomas Nielsen"
> <thomas@websup.dk> wrote:
>
>
> >Er ved at lave et lille "login" program som skal fylde hele skærmen og
altid
> >ligge i forgruden og ikke må kunne afsluttes med CTRL+ALT+DELETE eller
alt
> >F4
>
> Det lyder da som en ikke særlig god idé. Hvorfor ikke istedet lave
> programmet, så det ikke fremgår af joblisten ?
>
> mvh
> Morten Snedker

---

Prøv denne:

Public Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_SCREENSAVERRUNNING = 97

Private Sub ToggleCtrlAltDel(IsEnabled As Boolean)
Dim lReturn As Long
Dim lBool As Long
lReturn = SystemParametersInfo(SPI_SCREENSAVERRUNNING, IsEnabled, lBool,
vbNull)
End Sub