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 parcourir les différent services plus facilement j'ai manipuler le menu pour être plus accessible quieter a lorigine comme ça:
pour avoir cette resultat:
j'ai utilisé ResHacker pour faire la modification .
et pour finir je veux ajouter un menu pour parcorire un dossier avec le chemin : \mnt\var\www
code origin:
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 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
j'ai trouver se code: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
je ne sais pas comment l'exploité !!!ShellExecute(Handle,'explore',PChar('c:\test\'),nil,nil,SW_SHOW);
en réalité j'ai posté sur plusieur forum sans avoir une seul réponse !
merci
Partager