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.

Funktionssyntax:

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

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

Beispiel:

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