ajouter un menu sur un logiciel

Question

bonjour,
je ne sais pas si je suis dans le bon forum : mais je tente quand même. ... (si non merci de deplacer mon message.)
j'utilise un serveur local (Apache, MySQL et PHP) Mov'AMP 0.6 que j'ai télécharger ici : http://www.movamp.net
pour produire les différent services plus facilement j'ai manipuler le menu pour être plus accessible quieter a lorigine comme ça:

pour avoir cette resultat:

et pour finir je veux ajouter un menu pour parcorire un dossier avec le chemin : \mnt\var\www

code origin:
object Form1: TForm1
  Left =  479
  Top = 106
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  ClientHeight = 124
  ClientWidth = 268
  Color = clBtnFace
  Enabled = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PopupMenu1: TPopupMenu
    MenuAnimation = [maBottomToTop]
    object Raccourcis1: TMenuItem
      Caption = 'Raccourcis'
      object Accueil1: TMenuItem
        Caption = 'Accueil'
        OnClick = Accueil1Click
      end
      object phpMyAdmin1: TMenuItem
        Caption = 'phpMyAdmin'
        OnClick = phpMyAdmin1Click
      end
      object phpinfo1: TMenuItem
        Caption = 'phpinfo()'
        OnClick = phpinfo1Click
      end
    end
    object Quitter2: TMenuItem
      Caption = 'Quitter'
      OnClick = Quitter1Click
    end
  end
  object RxTrayIcon1: TRxTrayIcon
    Hint = 'Mov'#39'AMP 0.5'
    Icon.Data = {code icon ici}
    PopupMenu = PopupMenu1
    OnDblClick = RxTrayIcon1DblClick
    Left = 24
  end
end

 code modifier :
object Form1: TForm1
  Left  = 479
  Top = 106
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  ClientHeight = 124
  ClientWidth = 268
  Color = clBtnFace
  Enabled = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PopupMenu1: TPopupMenu
    MenuAnimation = [maBottomToTop]
    object Accueil1: TMenuItem
      Caption = '[ Accueil ]'
      OnClick = Accueil1Click
    end
    object phpMyAdmin1: TMenuItem
      Caption = '[ phpMyAdmin ]'
      OnClick = phpMyAdmin1Click
    end
    object phpinfo1: TMenuItem
      Caption = '[ phpinfo() ]'
      OnClick = phpinfo1Click
    end
    object Quitter2: TMenuItem
      Caption = '[ Quitter ]'
      OnClick = Quitter1Click
    end
  end
  object RxTrayIcon1: TRxTrayIcon
    Hint = 'Mov'#39'AMP 0.6'
    Icon.Data = {code icon ici}
    PopupMenu = PopupMenu1
    OnDblClick = RxTrayIcon1DblClick
    Left = 24
  end
end

merci

BruNews · Answer

Si tu disais quel est ce langage, je saurais où mettre ton post.

ciao...
BruNews, MVP VC++

Utilisateur anonyme · Answer

bonsoir BruNews,
mon amie je ne connais rien au langage  , j'ai utilisé ResHacker pour faire la modification.
je pense que c'est le delphi 

merci

Utilisateur anonyme · Answer

salut,
j'ai trouver se code:
ShellExecute(Handle,'explore',PChar('c:	est\'),nil,nil,SW_SHOW); 
comment le utilisé pour ouvrier le dossier "www
" qui se trouve "\mnt\var\www
"
merci

Ajouter un menu sur un logiciel

3 réponses

Votre réponse

Discussions similaires