WD2000: Jak wywołania funkcji API ShellExecute systemu Windows

Streszczenie

Można wywołać ShellExecute() funkcja interfejsu API systemu Windows z programu Visual Basic for Applications makro uruchomić inny program w obszarze Microsoft Windows. Aby obejść ograniczenie następujących poleceń, te ostatnie, użyj ShellExecute() zamiast powłoki (instrukcji języka Visual Basic) lub WinExec() (funkcja interfejsu API systemu Windows):

Powłoki i WinExec()nie można uruchomić aplikacji przez określenie nazwy pliku. Na przykład następująca instrukcja powłoki zakończy się niepowodzeniem:

x = Shell("C:\My Documents\Book1.Xls")

Więcej informacji

Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika. Poniżej przedstawiono przykład języka Visual Basic for Applications makra, która wywołuje funkcję ShellExecute() interfejsu API systemu Windows. ShellExecute() Określa, czy program Microsoft Excel jest już uruchomiona; Jeśli tak, to ładuje Skoroszyt1.xls do bieżącej sesji programu Microsoft Excel. Jeśli program Microsoft Excel nie jest jeszcze uruchomiony, ShellExecute() uruchamia program Microsoft Excel i ładuje Skoroszyt1.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

ShellExecute() funkcja otwiera i drukuje określonego pliku. Poniżej przedstawiono informacje dotyczące ShellExecute() ze stron 901 904 z Microsoft Windows Software Development Kit (SDK) "Programmer's Reference, objętość 2:Functions."

                
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).

Powiązane artykuły

Aby uzyskać więcej informacji dotyczących sposobu użyć przykładowego kodu w tym artykule kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:

212536 OFF2000: jak uruchamiać kod przykładowy z artykułów bazy wiedzy
Aby uzyskać więcej informacji na temat uzyskiwania pomocy programu Visual Basic for Applications zobacz następujący artykuł z bazy wiedzy Microsoft Knowledge Base:

226118 OFF2000: programowania zasobów dla języka Visual Basic for Applications


Microsoft Windows SDK "Programmer's Reference, tom 2: funkcje," strony 901 904