Accueil > FAQ > WinDev Divers | FAQ |
Demandé et répondu par KPiTN le 27-Sep-2004 12:14 (5147 Lectures)
Comment faire disparaitre l'alerte d'Outlook "Un programme tente d'accéder..."
Tout d'abord il faut télécharger un programme ici :
http://www.express-soft.com/mailmate/clickyes.html
comme il est dit sur le site, Outlook Express ne fait pas apparaître cette fenêtre si on change cela dans les options.
Ce code permet de lancer le logiciel qui va faire disparaître la fenêtre d'alerte, le temps que vous fassiez vos traitements.
Récupérer juste l'exécutable : ClickYes.exe
Que vous allez mettre dans votre répertoire du logiciel
----------------------------------------------------------------------
Ensuite dans l'initialisation de la fenêtre :
-----------------------------------------------------------------------
// Register a message to send
uClickYes = AppelDLL32("User32","RegisterWindowMessageA","CLICKYES_SUSPEND_RESUME")
// Find ClickYes Window by classname
wnd =AppelDLL32("USER32","FindWindowA","EXCLICKYES_WND",0)
SI wnd=0 ALORS
//appli non lancée
LanceAppli(RepDuLogiciel + "clickyes.exe", exeIconise, Faux)
Multitache(10)
// Register a message to send
uClickYes = AppelDLL32("User32","RegisterWindowMessageA","CLICKYES_SUSPEND_RESUME")
// Find ClickYes Window by classname
wnd =AppelDLL32("USER32","FindWindowA","EXCLICKYES_WND",0)
FIN
// Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)
----------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------
Dans le code de fermeture de la fenêtre
----------------------------------------------------------------------
SendMessage(wnd, uClickYes, 0, 0)
ExeTermine(RepDuLogiciel + "clickyes.exe")
-----------------------------------------------------------------
http://www.express-soft.com/mailmate/clickyes.html
comme il est dit sur le site, Outlook Express ne fait pas apparaître cette fenêtre si on change cela dans les options.
Ce code permet de lancer le logiciel qui va faire disparaître la fenêtre d'alerte, le temps que vous fassiez vos traitements.
Récupérer juste l'exécutable : ClickYes.exe
Que vous allez mettre dans votre répertoire du logiciel
----------------------------------------------------------------------
Ensuite dans l'initialisation de la fenêtre :
-----------------------------------------------------------------------
// Register a message to send
uClickYes = AppelDLL32("User32","RegisterWindowMessageA","CLICKYES_SUSPEND_RESUME")
// Find ClickYes Window by classname
wnd =AppelDLL32("USER32","FindWindowA","EXCLICKYES_WND",0)
SI wnd=0 ALORS
//appli non lancée
LanceAppli(RepDuLogiciel + "clickyes.exe", exeIconise, Faux)
Multitache(10)
// Register a message to send
uClickYes = AppelDLL32("User32","RegisterWindowMessageA","CLICKYES_SUSPEND_RESUME")
// Find ClickYes Window by classname
wnd =AppelDLL32("USER32","FindWindowA","EXCLICKYES_WND",0)
FIN
// Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)
----------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------
Dans le code de fermeture de la fenêtre
----------------------------------------------------------------------
SendMessage(wnd, uClickYes, 0, 0)
ExeTermine(RepDuLogiciel + "clickyes.exe")
-----------------------------------------------------------------
|