CHAMAR UM EXECUTAVEL ESTILO MODAL

DWEBER 29/01/2015 11:33:15
#444100
Bom dia Galera, será que alguem tem alguma dica de como posso fazer para chamar um outro executavel pelo vb mas que ele fique uma especie de modal ou seja enquanto eu não encerrar o tal aplicativo/executavel não consigo mexer no outro aplicativo, pois chamando ele via shel ou shellexecute se eu der um clique com o mouse no form(aplicativo que o chamou) o mesmo vai pra tras e ai se perde ...
PROFESSOR 23/02/2015 23:17:37
#444721
Você precisará usar API do Kernel do Windows.

A dica abaixo vem deste bom site. é um site com alguma idade e com um bom apanhado de dicas interessantes sobre as API do Windows no VB6. Aproveite para dar uma passeada por lá. Outro, é este aqui, é sempre bom conhecer.

Option Explicit

Public Const INFINITE = &HFFFF
Private Const STARTF_USESHOWWINDOW = &H1

Public Enum enSW
    SW_HIDE = 0
    SW_NORMAL = 1
    SW_MAXIMIZE = 3
    SW_MINIMIZE = 6
End Enum

Private Type PROCESS_INFORMATION
        hProcess As Long
        hThread As Long
        dwProcessId As Long
        dwThreadId As Long
End Type

Private Type STARTUPINFO
        cb As Long
        lpReserved As String
        lpDesktop As String
        lpTitle As String
        dwX As Long
        dwY As Long
        dwXSize As Long
        dwYSize As Long
        dwXCountChars As Long
        dwYCountChars As Long
        dwFillAttribute As Long
        dwFlags As Long
        wShowWindow As Integer
        cbReserved2 As Integer
        lpReserved2 As Byte
        hStdInput As Long
        hStdOutput As Long
        hStdError As Long
End Type

Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type
 
Public Enum enPriority_Class
    NORMAL_PRIORITY_CLASS = &H20
    IDLE_PRIORITY_CLASS = &H40
    HIGH_PRIORITY_CLASS = &H80
End Enum
 
Private Declare Function CreateProcess Lib [Ô]kernel32[Ô] Alias [Ô]CreateProcessA[Ô] _
        (ByVal lpApplicationName As String, ByVal lpCommandLine As String, _
        lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As _
        SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal _
        dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory _
        As String, lpStartupInfo As STARTUPINFO, lpProcessInformation _
        As PROCESS_INFORMATION) As Long

Private Declare Function WaitForSingleObject Lib [Ô]kernel32[Ô] _
        (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long


Public Function Executa(ByVal App As String, _
                        ByVal WorkDir As String, _ 
                        dwMilliseconds As Long, 
                        ByVal start_size As enSW, 
                        ByVal Priority_Class As enPriority_Class) As Boolean
    Dim pclass As Long
    Dim sinfo As STARTUPINFO
    Dim pinfo As PROCESS_INFORMATION
    Dim sec1 As SECURITY_ATTRIBUTES
    Dim sec2 As SECURITY_ATTRIBUTES
    sec1.nLength = Len(sec1)
    sec2.nLength = Len(sec2)
    sinfo.cb = Len(sinfo)
    sinfo.dwFlags = STARTF_USESHOWWINDOW
    sinfo.wShowWindow = start_size
    pclass = Priority_Class
    If CreateProcess(vbNullString, App, sec1, sec2, False, pclass, _
        0&, WorkDir, sinfo, pinfo) Then
        WaitForSingleObject pinfo.hProcess, dwMilliseconds
        Executa = True
    Else
        Executa = False
    End If
End Function
EPISCOPAL 24/02/2015 12:18:44
#444745
obs: Professor falta como passar ou utilizar a função!!!
PROFESSOR 24/02/2015 17:52:03
#444759
Bem, como eu disse, o exemplo da dica está no vb6.com, site de onde vem a dica. Mas a chamada é bem simples, uma vez que os parâmetros são quase autoexplicativos. 

[txt-color=#0000f0]EXECUTA[/txt-color] [caminho e nome do executável], [pasta onde o executável irá manter o trabalho], [tempo em milissegundos que deve reger a espera mínima da tarefa], [enumeração para o estado da janela], [enumeração para o grau de prioridade da tarefa]


Por exemplo, para usar o bloco de notas como uma janela modal e aguardar o encerramento, você pode chamar a função com algo como:

Executa [Ô]C:\Windows\System32\Notepad.exe[Ô], [Ô]C:\Windows\System32[Ô], 500, SW_NORMAL, NORMAL_PRIORITY_CLASS
EPISCOPAL 04/04/2015 00:42:12
#445679
Eu preciso desta função .... valeu professor ...
Faça seu login para responder
Voltar