Olá pessoal, tenho num servidor diversos aplicativos e gostaria que fossem abertos somente através de um único aplicativo (Tipo menu). Ou seja, se o usuário tentar executar qualquer aplicativo do servidor, seria emitido uma msg de que ele somente poderá ser executado através de um "Menu" que seria o portal de acesso.

 

Grato,

 

cria uma var TIPO INTEGER no MENU vc define o valor dela, e quando for chamar o outro EXE no load dele verifica o valor da var setadada no MENU caso tenha o valor definino continua, caso contrario nao foi chamado do menu... captou... a manha? hehehe

he! he! he!, ...facil, ...valeu Alf.

Poderia exemplificar o código aqui para termos este exemplo postado, desde a forma como vc abre os executáveis pelo Menu da aplicação principal a como vc recebe o parâmetro no Load da aplicação aberta.

 

Tks,

para chamar outro aplic. a partir de um "Menu" é facil, o que ainda não consegui é fazer o que a dica do Alfterra.

Estava pensando em copiar o parametro para "área de transferencia", e na abertura do outro .exe ele verificaria se existe algum valor lá, certo?

No meu caso mais especificamente, o usuário ao abrir o "Menu" ele é obrigado a se Logar, uma vez identificado o usuário, copio a ID dele para a área de transferencia e descarrego no outro aplic. É claro que também verificaria se o usúario teria direito de acesso a um determinado aplic.

 

Private Sub Command1_Click()
Dim W
W = Shell("C:Arquivos de programaseuprograma.exe", vbNormalFocus)
End Sub

Cara, me desculpe mas é muito fácil veja só.

Utilize agrumentos de execução

'Isto em um executavel ex. projetc1.exe

Sub Main

If InStr(Command$, "Comando") = "Abrir" Then 'o valor 'Abrir' é generico pode ser qualquer argumento

    msgbox "Argumento utilizado com sussesso"
    Form1.Show

else

   Msgbox "erro ao inicializar o aplicativo"

   end
End If

If InStr(Command$, "/tudo") Then
'   a mesma coisa pois pode colocar quantos agumentos quizeres

if ... then

   ...

else

   ...

endif

End If

'num segundo aplicativo chamador voce entra com esta chamada.

 

'

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5

 

...

Dim lRet As Long

dim argumento as string

argumento="Abrir"

lRet = ShellExecute(0, "Open", Label2.Caption, argumento, "", SW_SHOW)
'se o argumento passado está correto vai enfrente

...

se quiser posso lhe enviar um demo.

 

'Só os melhores prevalecem