PureBasic

Voilà un logiciel que j'ai fait ne trouvant rien d'aussi simple sur le web.

Une icône apparait dans le Systray et vous permet de lancer les outils et options de Windows les plus courantes.

Du gestionnaire de périphérique à l'ajout suppression de programme en passant par les utilitaires comme le bloc note, post it,
la calculette mais aussi le clavier virtuel, la gestion du volume et bien d'autres.

Vous pouvez aussi personnaliser le menu pour n'afficher que les options dont vous avez besoin.

Mises à jours

; 1.2 Ajout de la gestion du PareFeu
; 1.1 Correction d'un bug concernant le clavier virtuel
; 1.0 finalisation et détection des OS windows 7 - ajout de la version x86
; 0.9 Ajout de la gestion du son "activé ou non" pour le bouton "enregistrer"
; 0.8 Ajout bouton "tout cocher" dans les préférences. Correction d'un bug
; 0.7 Amélioration design
; 0.6 debugage - Logiciel fonctionnel !
; 0.5 réorganisation du menu, ajout cmd, option des dossiers
; 0.4 fenêtre principale en liste
; 0.3 pref ajouté / tableau
; 0.2 ajout des icones

OS : Windows 7 x64 v1.2
Liens : http://logitheque.ldvmultimedia.com/s7a_x64.zip

OS : Windows 7 x86 v1.1
Liens : http://logitheque.ldvmultimedia.com/s7a_x86.zip

Merci pour vos retours.

Salut Ar-S,
Fonctionne très bien chez moi, même si je ne pense pas m'en servir mais pourquoi pas.

@++

Mise à jour 0.9
Ajout de la gestion du son "activé ou non" pour le bouton "enregistrer"

Mise à jour 1.0
Finalisation et détection des OS Windows 7 - ajout de la version x86

Des tests de la version x86 sur windows 7 x86 me seraient utile.

Mise à jour 1.1
Correction d'un bug concernant le clavier virtuel

Bonjour,

Maintenant qui a la version x32 j'i pu faire le test. Vraiment sympa, rien a redire c'est plutot complet

. Je ne sais pas si je l'utiliserais souvent mais c'est utile.

Cordialement,
GallyHC

Je trouve dommage l'entré "activer le son" en plein milieu du menu, c'est des options donc ça devrais être caché. Et la, on a l'impression que c'est le plus important.
Je n'aurais pas fait de sous-menu mais un gros menu avec des séparations et des titres (menu désactivé pour faire les titres, avec une icône approprié, je pense que ce serait plus classe)

L'autre point dommage, c'est l'utilisation de BMP ou lieu de PNG, c'est du coup moins esthétique. Sinon, tu aurais pu charger les icônes directement des applications.

Voir ma librairie GetIcon dont je te copie le code ici :

Code : Tout sélectionner

Global OS
ProcedureDLL GetIcon_Init()
  OS = OSVersion()
EndProcedure
ProcedureDLL.l GetIconFile(IconFile.s, Size.l) ; Get icon 16*16, 32*32 or 48*48
  Protected hIcon.l, FileInfo.SHFILEINFO, dll_Shell32.l, hResult.l, *Guid.l
  Select Size
    Case #SHIL_SMALL, 16
      SHIL = #SHIL_SMALL
    Case #SHIL_LARGE, 32
      SHIL = #SHIL_LARGE
    Case #SHIL_EXTRALARGE, 48
      SHIL = #SHIL_EXTRALARGE
    Case #SHIL_JUMBO, 128, 256
      If OS >= #PB_OS_Windows_Vista
        SHIL = #SHIL_JUMBO
      Else
        SHIL = #SHIL_EXTRALARGE
      EndIf
    Default
      SHIL = #SHIL_SMALL
  EndSelect
  If OS >= #PB_OS_Windows_XP ; Pour Windows XP et plus, toute taille d'icône
    dll_Shell32 = OpenLibrary(#PB_Any, "Shell32.dll")
    If dll_Shell32
      *Guid = ?IID_IImageList
      SHGetFileInfo_(IconFile, 0, @FileInfo, SizeOf(SHFILEINFO), #SHGFI_SYSICONINDEX)
      hResult = CallFunction(dll_Shell32, "SHGetImageList", SHIL, *Guid, @ImageList.IImageList2)
      If hResult = 0
        ImageList\GetIcon(FileInfo\iIcon, #ILD_TRANSPARENT, @hIcon)
        ImageList\Release()
      EndIf
      CloseLibrary(dll_Shell32)
    EndIf
  Else ; Avant windows XP, icône 16*16 ou 32*32
    If SHIL = #SHIL_EXTRALARGE Or SHIL = #SHIL_LARGE
      SHGetFileInfo_(IconFile, 0, @InfosFile.SHFILEINFO, SizeOf(SHFILEINFO), #SHGFI_ICON | #SHGFI_LARGEICON)
      hIcon = InfosFile\hIcon
    Else
      SHGetFileInfo_(IconFile, 0, @InfosFile.SHFILEINFO, SizeOf(SHFILEINFO), #SHGFI_ICON | #SHGFI_SMALLICON)
      hIcon = InfosFile\hIcon
    EndIf
  EndIf
  ProcedureReturn hIcon
EndProcedure
ProcedureDLL.l GetSmallIconFile(IconFile.s) ; Get icon 16*16
  ; Cette procedure permet d'extraire l'ID de l'icône 16*16 associée au type de fichier ou au dossier dont l'adresse est IconFile
  ProcedureReturn GetIconFile(IconFile.s, 16)
EndProcedure
ProcedureDLL.l GetLargeIconFile(IconFile.s) ; Get icon 32*32
  ; Cette procedure permet d'extraire l'ID de l'icône 32*32 associée au type de fichier ou au dossier dont l'adresse est IconFile
  ProcedureReturn GetIconFile(IconFile.s, 32)
EndProcedure
ProcedureDLL.l GetExtraLargeIconFile(IconFile.s) ; Get icon 48*48
  ; Cette procedure permet d'extraire l'ID de l'icône 48*48 associée au type de fichier ou au dossier dont l'adresse est IconFile
  ProcedureReturn GetIconFile(IconFile.s, 48)
EndProcedure
ProcedureDLL.l GetJumboIconFile(IconFile.s) ; Get icon 128*128 or 256*256
  ; Cette procedure permet d'extraire l'ID de l'icône 128*128 ou 256*256 associée au type de fichier ou au dossier dont l'adresse est IconFile
  ProcedureReturn GetIconFile(IconFile.s, 128)
EndProcedure

Merci pour tes remarques LSI (je connaissais ta lib mais pas testé)..
Mais pour aller chercher les icones faut bien connaitre leur nom ? Alors OK elles sont dans Shell32.dll mais comment je chope leurs nom ?

En fait j'ai commencé S7A sans sous menu, mais je me suis dit que sur les petites résolutions (comme sur les netbook comme a dobro) le menu risquait d'être trop haut, donc j'ai ajouté ces sous menus.
je vais peut-être ajouter une détection de la résolution, comme ça le prog s'adaptera "dynamiquement" selon qu'il y ait la place ou pas.
Pour le son, effectivement, je pense mettre en sous menu les options et afficher en priorité les menu (c'est plus logique mais c'est ainsi depuis ma remarque précédente).
BMP/PNG pour de si petites icones je ne trouve pas cela gênant, et cela évite d'avoir à utiliser usePngimageDecoder()
Tu trouves que ça se voit ? parceque chez moi (et sur le screenshot) je ne vois pas le fond des icones.
Si tu les vois fais moi un screenshot ce serait cool.

En attendant une refonte de l'interface pour une version 2 qui n'est pas encore dispo (et pas encore prés de l'etre pour l'instant),
MAJ de la version x64 en 1.2

- Ajout de la gestion du parefeu.

Je n'est pas testé mais je te dis quand même chapeau car ça ma l'air très utile

PureBasic

Systray 7 Administrator 1.1 (x86) 1.2 (x64)

Systray 7 Administrator 1.1 (x86) 1.2 (x64)

Re: Systray 7 Administrator 0.8

Re: Systray 7 Administrator 0.9

Re: Systray 7 Administrator 1.0 (x86 et x64) final

Re: Systray 7 Administrator 1.1 (x86 et x64) final

Re: Systray 7 Administrator 1.1 (x86 et x64) final

Re: Systray 7 Administrator 1.1 (x86 et x64) final

Re: Systray 7 Administrator 1.1 (x86 et x64) final

Re: Systray 7 Administrator 1.1 (x86) 1.2 (x64) final

Re: Systray 7 Administrator 1.1 (x86) 1.2 (x64)