Manuel du 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.

Format de la fonction :

CreateGroup(name as String) as Boolean

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

name

Identifie le nom du groupe.

décalage

Une des valeurs suivantes :

• LNK_PROGRAMS
• LNK_DESKTOP
• LNK_STARTMENU
• LNK_STARTUP
• LNK_ABSOLUTE

En cas de réussite, la fonction renvoie la valeur True. Dans le cas contraire, elle renvoie la valeur False.

Exemple :

Cet exemple crée un groupe d'icônes appelé DMS Test avec une icône pour l'éditeur de scripts. 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