USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Executável
Glaucia Helena
SÃO PAULO
SP - BRASIL
Postada em 12/01/2006 13:52 hs            

Amigos, para eu chamar um executável eu uso o comando Shell

Shell (Path.app & "licenca.exe")

Essa linha está no Form principal do meu sistema

Que linha eu coloco no meu sistema de licenças para fechar o sistema principal se a data que estipulei for menor que a data da máquina ?

Obrigada

     
Keyo
Pontos: 2843
CURITIBA
PR - BRASIL
Postada em 12/01/2006 13:59 hs            
shell app.path & "licenca.exe"
     
Glaucia Helena
SÃO PAULO
SP - BRASIL
Postada em 12/01/2006 14:14 hs            
Acho que você não entendeu minha pergunta !
Quando executo a linha Shell (Path.app & "licenca.exe") de dentro do meu sistema eu estou executando o executável licenca.exe.
Quando quero fechar como é feito o comando Shell ?
Obrigada
     
Keyo
Pontos: 2843
CURITIBA
PR - BRASIL
ENUNCIADA !
Postada em 12/01/2006 14:25 hs            
Agora entendi vc quer fechar uma aplicação via código,,,,agora apertou>>>eu sei que tem uma API que faz isso mas naum to lembrado de cabeça...vou dar um bizú e se eu achar eu te aviso....
   
Keyo
Pontos: 2843
CURITIBA
PR - BRASIL
ENUNCIADA !
Postada em 12/01/2006 14:38 hs            
'Agora vamos lá que eu saquei a Parada
'Declare estas funções
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'Coloque o seguinte código em um botão
Private Sub Command1_Click()
   
    Const NILL = 0&
    Const WM_SYSCOMMAND = &H112
    Const SC_CLOSE = &HF060
   
    'contem a propriedade caption do form que estará ativo
    'neste exemplo fecharemos a calculadora do windows
    lpCaption$ = "Calculadora"
    'procura uma janela que tenha o caption igual ao contido na variavel lpCaption$
    Handle = FindWindow(vbNullString, lpCaption$)
    'fecha a aplicação se ela estiver aberta
    X& = SendMessage(Handle, WM_SYSCOMMAND, SC_CLOSE, NILL)
 
End Sub
'veja se funfa>>>>>é mel na chupeta<<<<<<
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página