ShellLinkObject.ShowCommand (Eigenschaft)
Ruft den anfänglichen Anzeigezustand (größe, minimiert oder maximiert) des Linkbefehls ab oder legt diesen fest.
Dies ist eine Eigenschaft mit Lese- und Schreibzugriff.
Syntax
iShowCommand = ShellLinkObject.ShowCommand
ShellLinkObject.ShowCommand(intShowCommand) = iShowCommand
Eigenschaftswert
Der Anzeigezustand des Links. Mögliche Werte:
(1)
Aktiviert ein Fenster und zeigt es an. Wenn das Fenster minimiert oder maximiert ist, stellt das System es auf seine ursprüngliche Größe und Position wieder zurück.
(2)
Aktiviert das Fenster und zeigt es als minimiertes Fenster an.
(3)
Aktiviert das Fenster und zeigt es als maximiertes Fenster an.
Beispiele
Das folgende Beispiel zeigt die ordnungsgemäße Verwendung dieser Eigenschaft in JScript, VBScript und Visual Basic.
JScript:
<script language="JScript">
function fnShellShellLinkObjectShowCommandJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder;
var ssfPROGRAMS = 2;
objFolder = objShell.NameSpace(ssfPROGRAMS);
if (objFolder != null)
{
var objFolderItem;
objFolderItem = objFolder.ParseName("Internet Explorer.lnk");
if (objFolderItem != null)
{
var objShellLink;
objShellLink = objFolderItem.GetLink;
if (objShellLink != null)
{
var nShow;
// Get the ShowCommand for the ShellLinkObject.
nShow = objShellLink.ShowCommand;
alert(nShow);
// Set the ShowCommand for the ShellLinkObject.
objShellLink.ShowCommand = 1
}
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnShellLinkObjectShowCommandVB()
dim objShell
dim objFolder
dim ssfPROGRAMS
ssfPROGRAMS = 2
set objShell = CreateObject("shell.application")
set objFolder = objShell.NameSpace(ssfPROGRAMS)
if (not objFolder is nothing) then
dim objFolderItem
set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
if (not objFolderItem is nothing) then
dim objShellLink
set objShellLink = objFolderItem.GetLink
if (not objShellLink is nothing) then
dim nShow
'Get the ShowCommand for the ShellLinkObject.
nShow = objShellLink.ShowCommand
alert(nShow)
'Set the ShowCommand for the ShellLinkObject.
objShellLink.ShowCommand = 1
end if
set objShellLink = nothing
end if
set objFolderItem = nothing
end if
set objFolder = nothing
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub fnShellLinkObjectShowCommandVB()
Dim objShell As Shell
Dim objFolder As Folder
Set objShell = New Shell
Set objFolder = objShell.NameSpace(ssfPROGRAMS)
If (Not objFolder Is Nothing) Then
Dim objFolderItem As FolderItem
Set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
If (Not objFolderItem Is Nothing) Then
Dim objShellLink As ShellLinkObject
Set objShellLink = objFolderItem.GetLink
If (Not objShellLink Is Nothing) Then
Dim nShow As Integer
'Get the ShowCommand for the ShellLinkObject.
nShow = objShellLink.ShowCommand
Debug.Print nShow
'Set the ShowCommand for the ShellLinkObject.
objShellLink.ShowCommand = 1
End If
Set objShellLink = Nothing
End If
Set objFolderItem = Nothing
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
Requirements (Anforderungen)
| Anforderung | Wert |
|---|---|
| Unterstützte Mindestversion (Client) |
Windows 2000 Professional nur mit [ SP3-Desktop-Apps] |
| Unterstützte Mindestversion (Server) |
Windows 2000 Server [nur Desktop-Apps] |
| Header |
|
| IDL |
|
| DLL |
|