SOFTWARE EM PRIMEIRO PLANO

DEFAVERO 19/10/2009 14:40:33
#325687
Srs,

Gostaria de saber se alguem tem a seguinte solução....

Tenho um software de controle e gostaria de deixar ele em primeiro plano, sem permitir com que o usuário pudesse mecher no menu iniciar ou em qualquer outro componente do windows, apenas utilizar o software.

Alguêm tem alguma solução para isso!!

att,
ALEXLUGON 19/10/2009 15:17:56
#325689

Em um Modulo coleque isso
Option Explicit

Public Declare Function SetWindowPos Lib _
[Ô]user32[Ô] (ByVal hwnd As Long, ByVal _
hWndInsertAfter As Long, ByVal X As _
Long, ByVal Y As Long, ByVal cx As _


no form vc chama assim

Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2)
DEFAVERO 19/10/2009 22:01:30
#325734
Cara não deu certo nao

ou faltou codigo ai....
JWCELYO 19/10/2009 22:03:57
#325735
tem finalize o explorer.exe
DEFAVERO 20/10/2009 06:47:55
#325743
Depois so com Ctrl+Alt+Del, vc inicia novamente...mt fácil para o usuário!
TECLA 20/10/2009 07:34:56
#325748 Resposta escolhida
Em um MODULE:
Option Explicit

Declare Function SetWindowPos Lib [Ô]user32.dll[Ô] (ByVal hwnd As _
Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As _
Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Const HWND_BOTTOM = 1
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOP = 0
Public Const HWND_TOPMOST = -1
Public Const SWP_DRAWFRAME = &H20
Public Const SWP_NOSIZE = &H1


Em um FORM:
Dim flags As Long
Dim retval As Long

flags = SWP_NOSIZE Or SWP_DRAWFRAME
retval = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 1, 1, flags) [txt-color=#088A4B][ô] move the window[/txt-color]
ALEMAO 20/10/2009 13:04:35
#325792
Boa tarde Amigo. Tenta assim...

[ô] declara essa função em um modulo...
Public Declare Function SetWindowPos Lib [Ô]user32[Ô] (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

[ô] no load do formulário tu coloca a chamada da função...
Call SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 1 Or 2)
Tópico encerrado , respostas não são mais permitidas
Voltar