création d'un point exe

Question

Lorsque je cr&#233;e mon .exe

j'ai l'impression que l'expression suivante n'est pas compil&#233;e : 
Call SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, "Environment")

Quelqu'un aurait-il une id&#233;e

voici mon programme :

'API
Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hwnd As Long, _
    ByVal wMsg As Long, ByVal wParam As Long, _
    ByVal lParam As String) As Long
    
'CONSTANTE
Private Const WM_SETTINGCHANGE = &H1A
Private Const HWND_BROADCAST = &HFFFF&
  


Private Sub Form_Load()
  
Dim retval


REG = "regedit /s " & GetShortPath("C:\Program Files") & "\XELEC\PCI\xelec_var.reg"
retval = Shell(REG, 0)
DoEvents
  
  
'Message en Broadcoast pour l'envoie du changement &#224; tous les processus de windows concernant cette modification
Call SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, "Environment")


'Sleep 5000


EXE = GetShortPath("C:\Program Files") & "\XELEC\xelec7.10\exec\xaccueil.exe"
retval = Shell(EXE, 0)
DoEvents



End
End Sub

j'apprend alors zen

econs · Answer

C'est une impression ou une certitude ?



Si la ligne n'est pas compil&#233;e, il doit y avoir un message d'erreur quand tu cr&#233;es ton .exe








Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

j621473 · Answer

non meme pas pas de message d'erreur, mais mon appli ne se lance pas et si elle ne se lance pas c'est que les variable ne sont inscritent.
Lorsque je vais dans propri&#233;t&#233;s de poste de travail ....var environement je les vois mais elles ne sont pas valid&#233;s il faut que je fasse OK et l&#224; ca marche.

Donc c'est pour cela que je dis que la commande : 
Call SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, "Environment")
et ne fonctionne pas dans le .exe

?????

Sauves moi la vie  please

j'apprend alors zen

Création d'un point exe

2 réponses

Discussions similaires