Langage de script Desktop Management › Fonctions › Fonctions d'icône › CreateGroup : Créer un groupe ou activer un groupe

CreateGroup : Créer un groupe ou activer un groupe

Valide pour Windows uniquement

La fonction CreateGroup crée un nouveau groupe ou active la fenêtre d'un groupe existant.

Cette fonction d'icône présente le format suivant :

CreateGroup(name as String) as Boolean

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

nom

Identifie le nom du groupe.

décalage

Une des valeurs suivantes :

• LNK_PROGRAMS
• LNK_DESKTOP
• LNK_STARTMENU
• LNK_STARTUP
• LNK_ABSOLUTE

Reportez-vous à la description de offset dans CreateLink.

En cas de réussite, la fonction renvoie True, sinon elle renvoie False.

Exemple : Fonction CreateGroup

Cet exemple crée un groupe d'icônes appelé DMS Test avec une icône pour l'éditeur de script. Cet exemple ajoute un raccourci sur le bureau. Le groupe d'icônes et le raccourci sont supprimés.

Rem
' détermine l'emplacement de 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("Impossible d'ouvrir DMSEdit-key", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)
SetStatus(1)
quitter

End If

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

MessageBox("dmseditInstalledAt introuvable ou invalide", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)
SetStatus(2)
quitter

End If

RegCloseKey(hkey)

' Maintenant, créez le groupe et les icônes
If Not(CreateGroup("DMS Test", LNK_PROGRAMS)) Then

MessageBox("Impossible de créer le groupe d'icônes", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)
SetStatus(3)
quitter

End If

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

MessageBox("Impossible d'installer dmsedit dans le groupe d'icônes", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)
SetStatus(4)
quitter

End If

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

MessageBox("Impossible d'installer dmsedit sur le bureau", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)
SetStatus(5)
quitter

End If

MessageBox("Les icônes et le raccourci ont été créés, cliquez sur OK pour les supprimer","Script Desktop Management : Confirmation d'icône", MB_OK + MB_ICONINFORMATION)

'Supprimez le raccourci 
if Not(DeleteItem("Editeur DMS", "", LNK_DESKTOP)) Then

MessageBox("Impossible de désinstaller dmsedit du bureau", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)
SetStatus(6)
quitter

End If

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

MessageBox("Impossible de supprimer le groupe d'icônes", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)
SetStatus(7)
quitter

End If