WD2000: Como chamar a função da API do Windows ShellExecute

Traduções de Artigos Traduções de Artigos
Artigo: 238245 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Pode chamar a função de API do Windows ShellExecute() a partir de um Visual Basic for Applications macro para iniciar outro programa no Microsoft Windows. Utilize ShellExecute() em vez de shell (uma instrução do Visual Basic) ou WinExec() (uma função de API do Windows) para contornar a seguinte limitação dos últimos comandos:

Com o shell e WinExec() , não é possível iniciar uma aplicação especificando apenas um nome de ficheiro. Por exemplo, a seguinte instrução de shell falhará:
x = Shell("C:\My Documents\Book1.Xls")
				

Mais Informação

A Microsoft fornece exemplos de programação apenas, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador. Abaixo é um exemplo do Visual Basic para aplicações de macro que chama a função de API do Windows ShellExecute() . ShellExecute() determina se o Microsoft Excel já está em execução; se assim, carrega Livro1.xls na sessão actual do Microsoft Excel. Se o Microsoft Excel não estiver em execução, ShellExecute() inicia o Microsoft Excel e carrega Livro1.xls.
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

Declare Function apiFindWindow Lib "User32" Alias "FindWindowA" _
   (ByVal lpclassname As Any, ByVal lpCaption As Any) As Long

Global Const SW_SHOWNORMAL = 1

Sub ShellExecuteExample()
   Dim hwnd
   Dim StartDoc
   hwnd = apiFindWindow("OPUSAPP", "0")

   StartDoc = ShellExecute(hwnd, "open", "C:\My Documents\Book1.xls", "", _
      "C:\", SW_SHOWNORMAL)
End Sub
				
a função ShellExecute() abre ou imprime o ficheiro especificado. Segue-se informações sobre ShellExecute() de páginas 901-904 do Microsoft Windows Software Development Kit (SDK) "Programmer Reference, Volume 2:Functions."

Parâmetros

Parameter            Description
---------------------------------------------------------------------------

   hwnd                 Identifies the parent window.

   lpszOp               A string specifying the operation to perform. This
                        string can be "open" or "print".

   lpszFile             Points to a string specifying the file to open.

   lpszParams           Points to a string specifying parameters passed to
                        the application when the lpszFile parameter
                        specifies an executable file. If lpszFile points to
                        a string specifying a document file, this parameter
                        is NULL.

   lpszDir              Points to a string specifying the default
                        directory.

   fsShowCmd            Specifies whether the application window is to be
                        shown when the application is opened. This
                        parameter can be one of the following values:

      Value          Meaning
      ---------------------------------------------------------------------

      0              Hides the window and passes activation to another
                     window.

      1              Activates and displays a window. If the window is
                     minimized or maximized, Windows restores it to its
                     original size and position (same as 9).

      2              Activates a window and displays it as an icon.

      3              Activates a window and displays it as a maximized
                     window.

      4              Displays a window in its most recent size and
                     position. The window that is currently active remains
                     active.

      5              Activates a window and displays it in its current
                     size and position.

      6              Minimizes the specified window and activates the
                     top-level window in the system's list.

      7              Displays a window as an icon. The window that is
                     currently active remains active.

      8              Displays a window in its current state. The window
                     that is currently active remains active.

      9              Activates and displays a window. If the window is
                     minimized or maximized, Windows restores it to its
                     original size and position (same as 1).
				

Devolve

O valor devolvido é a alça de instância da aplicação que foi aberta ou impressa, se a função tiver êxito. (Este identificador pode também ser a alça de uma aplicação de servidor DDE.) Devolver um valor menor ou igual a 32 Especifica um erro.

Erros

A função ShellExecute() devolve o valor 31 se não existir nenhuma associação para o tipo de ficheiro especificado ou se não existir nenhuma associação para a acção especificada no tipo de ficheiro. Outros valores de erro possíveis são os seguintes:
Value          Meaning
---------------------------------------------------------------------------

   0             System was out of memory, executable file was corrupt, or
                 relocations were invalid.

   2             File was not found.

   3             Path was not found.

   5             Attempt was made to dynamically link to a task, or there
                 was a sharing or network-protection error.

   6             Library required separate data segments for each task.

   8             There was insufficient memory to start the application.

  10             Windows version was incorrect.

  11             Executable file was invalid. Either it was not a Windows
                 application, or there was an error in the .exe image.

  12             Application was designed for a different operating system.

  13             Application was designed for MS-DOS 4.0.

  14             Type of executable file was unknown.

  15             Attempt was made to load a real-mode application
                (developed for an earlier version of Windows).

  16             Attempt was made to load a second instance of an
                 executable file containing multiple data segments that
                 were not marked read-only.

  19             Attempt was made to load a compressed executable file. The
                 file must be decompressed before it can be loaded.

  20             Dynamic-link library (DLL) file was invalid. One of the
                 DLLs required to run this application was corrupt.

  21             Application requires Microsoft Windows 32-bit extensions.
				

Comentários

O ficheiro especificado pelo parâmetro lpszFile pode ser um ficheiro de documento ou um ficheiro executável. Se for um ficheiro de documento, esta função abre ou imprime, dependendo do valor do parâmetro lpszOp. Caso se trate de um ficheiro executável, esta função abre, mesmo se a cadeia "imprimir" é apontada por lpszOp.

Referências

Para mais informações sobre como utilizar o código de exemplo neste artigo, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft:
212536OFF2000: Como executar códigos de exemplo a partir de artigos da base de dados de conhecimento da Microsoft
Para mais informações sobre como obter ajuda com o Visual Basic for Applications, consulte o seguinte artigo da base de dados de conhecimento da Microsoft:
226118OFF2000: Recursos de programação do Visual Basic for Applications


Microsoft Windows SDK "Programmer Reference, volume 2: funções," páginas 901-904

Propriedades

Artigo: 238245 - Última revisão: 11 de outubro de 2006 - Revisão: 3.2
A informação contida neste artigo aplica-se a:
  • Microsoft Word 2000 Standard Edition
Palavras-chave: 
kbmt kbhowto kbprogramming KB238245 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 238245

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com