Rezumat
Puteți apela funcția Windows API comenzi ShellExecute() dintr-o Visual Basic for Applications macrocomandă pentru a porni un alt program în Microsoft Windows. Utilizați comenzi ShellExecute() în loc de Shell (o instrucțiune Visual Basic) sau WinExec() (o funcție Windows API) pentru a evita limitarea următoarele comenzi din urmă:
Cu Shell și WinExec(), nu se poate porni o aplicație prin specificarea numai un nume de fișier. De exemplu, următoarea declarație Shell nu va reuși:
x = Shell("C:\My Documents\Book1.Xls")
Mai multe informații
Microsoft furnizează exemple de programare scop ilustrativ, fără nicio garanţie explicită sau implicită. Aceasta include, dar nu se limitează la, garanţiile implicite de vandabilitate sau de potrivire pentru un anumit scop. Acest articol presupune că sunteţi familiarizat cu limbajul de programare care este prezentat şi cu instrumentele utilizate pentru a crea şi a depana proceduri. Specialiștii în asistență Microsoft pot ajuta la explicarea funcționalității unei anumite proceduri, dar nu vor modifica aceste exemple pentru a furniza funcționalitate suplimentară sau pentru a construi proceduri pentru a răspunde cerințelor dvs. specifice. De mai jos este un exemplu de Visual Basic pentru macrocomenzi de aplicații care apelează funcția comenzi ShellExecute() Windows API. Comenzi ShellExecute() determină dacă Microsoft Excel se execută deja; Dacă da, se încarcă Registru1.xls în sesiunea curentă de Microsoft Excel. Dacă Microsoft Excel nu se execută deja, comenzi ShellExecute() Microsoft Excel pornește și încarcă Registru1.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
Funcția de comenzi ShellExecute() se deschide sau imprimă fișierul specificat. Este următoarele informații despre comenzi ShellExecute() din paginile 901 904 de Microsoft Windows Software Development Kit (SDK) "Programmer's Reference, volum 2:Functions."
Parametrii
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).
Returnează
Valoarea returnată este identificatorul de instanță aplicației pe care s-a deschis sau imprimate, dacă funcția reușește. (Acest identificator poate fi, de asemenea, handle de o aplicație de server DDE). Return o valoare mai mică sau egală cu 32 specifică o eroare.
Erori
Funcția de comenzi ShellExecute() returnează valoarea 31 dacă nu există nici o asociere pentru tipul de fișier specificat sau dacă nu există nici o asociere de acţiune specificat în tipul de fișier. Alte valori posibile erori sunt după cum urmează:
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.
Comentarii
Fișierul specificat de parametrul lpszFile poate fi un fișier document sau un fișier executabil. Dacă acesta este un fișier document, această funcție se deschide sau imprimă, în funcţie de valoarea parametrului lpszOp. Dacă acesta este un fișier executabil, această funcție se deschide, chiar dacă șirul "print" se referă lpszOp.
Referințe
Pentru mai multe informații despre cum se utilizează mostre de cod în acest articol, faceți clic pe următorul număr de articol pentru a vedea articolul în baza de cunoștințe Microsoft:
212536 OFF2000: cum se execută mostre de cod din articolele din baza de cunoștințe
Pentru mai multe informații despre obținerea ajutorului pentru Visual Basic for Applications, consultaţi următorul articol din baza de cunoștințe Microsoft:
226118 OFF2000: programare resurse pentru Visual Basic for Applications
Microsoft Windows SDK "Programmer's Reference, Volumul 2: funcții," 901 904 de pagini
