Desktop Management Scripting-Sprache › Funktionen › Symbolfunktionen › CreateGroup - Erstellen einer neuen Gruppe oder Aktivieren einer vorhandenen Gruppe

CreateGroup - Erstellen einer neuen Gruppe oder Aktivieren einer vorhandenen Gruppe

Gilt nur für Windows.

Durch die Funktion "CreateGroup" wird eine neue Gruppe erstellt oder das Fenster einer vorhandenen Gruppe aktiviert.

Diese Symbolfunktion hat das folgende Format:

CreateGroup(name as String) as Boolean

CreateGroup (name as String, 
	offset as Integer) as Boolean

Name

Gibt den Namen der Gruppe an.

offset

Einer der folgenden Werte:

• LNK_PROGRAMS
• LNK_DESKTOP
• LNK_STARTMENU
• LNK_STARTUP
• LNK_ABSOLUTE

Unter "CreateLink" finden Sie eine Beschreibung des Parameters "offset".

Bei erfolgreichem Abschluss gibt die Funktion TRUE zurück, andernfalls FALSE.

Beispiel: Funktion "CreateGroup"

In diesem Beispiel wird die Symbolgruppe "DMS Test" mit einem Symbol für den Skript-Editor erstellt. Weiterhin wird eine Verknüpfung auf dem Desktop hinzugefügt. Die Symbolgruppe und die Verknüpfung werden entfernt.

Rem
' determine location of dmsedit.exe
Dim hkey, dummy As Integer
Dim dmseditPath As String

hkey = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\ComputerAssociates\DMScript\DMSEdit")
If hKey = 0 Then

MessageBox("Can not open DMSEdit-key", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
SetStatus(1)
Beenden

End If

If Not(RegQueryVariable(hkey, "dmseditInstalledAt", dmseditPath, dummy) = REG_STRING) Then

MessageBox("dmseditInstalledAt not found or invalid", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
SetStatus(2)
Beenden

End If

RegCloseKey(hkey)

' Now Create group and icons
If Not(CreateGroup("DMS Test", LNK_PROGRAMS)) Then

MessageBox("Can not create icon group", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
SetStatus(3)
Beenden

End If

If Not(AddItem("DMS Editor", dmseditPath+"\dmsedit.exe","","", "DMS Test",FALSE,)) Then

MessageBox("Failed to install dmsedit at icon group", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
SetStatus(4)
Beenden

End If

if Not(CreateLink("DMS Editor", dmseditPath+"\dmsedit.exe","","", "",LNK_NORMAL, LNK_DESKTOP)) Then

MessageBox("Failed to install dmsedit at desktop", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
SetStatus(5)
Beenden

End If

MessageBox("Icons and shortcut has been created, press OK to delete them again","Desktop Management Scripting: Icon Confirm", MB_OK + MB_ICONINFORMATION)

'Delete shortcut 
if Not(DeleteItem("DMS Editor", "", LNK_DESKTOP)) Then

MessageBox("Deinstallation von dmsedit vom Desktop fehlgeschlagen", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
SetStatus(6)
Beenden

End If

if Not(DeleteGroup("DMS Test", LNK_PROGRAMS)) Then

MessageBox("Failed to delete icon group", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
SetStatus(7)
Beenden

End If