Accueil > FAQ > WinDev Divers FAQ

Demandé et répondu par KPiTN le 27-Sep-2004 12:14 (5099 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")
-----------------------------------------------------------------

4 Commentaires Imprimer la Q&R Envoyer la Q&R

Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2