@KACHWAHED:
Salut,
Alors pour l'état initial D'activateButton, je ne me suis pas foulé parce que, initialement, je n'avais pas prévu de diffuser la source.. Mais celle-ci m'a permis de mettre en évidence un Bug avec les Threads sur les architectures multi-coeurs alors..

(Pourquoi sur désactiver ?)
Parce que si le programme est correctement configuré le monitoring se lance automatiquement au démarrage du programme qui commence en même temps que le système, et donc le bouton est sur 'Désactiver'.
Pour la ScrollBar (SB), c'est parce que je me suis confronté, (comme beaucoup), à la modification directe de l'épaisseur de la SB du mémo. (Pourquoi? afin de la contrôler du doigt sur un écran tactile). Or, à part modifier les paramètres du système (SetParameterblabla) il n'y a pas 36 solutions, et donc la SB s'impose.
Après vient la synchro entre le mémo et la SB.
Voilà. Merci pour tes remarques et bonne continuation !

J'ai oublié de préciser où gèle l'application sans l'astuce;
Lors du suspend du thread chargé de la surveillance (lorsqu'on désactive la surveillance active).

Le programme fonctionne bien sous Seven sur les deux types d'éjection.
Cordialement,
Mat.

Seuls les périphériques 'amovibles' peuvent être déconnectés.
(Je n'ai pas réussi à déconnecter un disque dur usb avec cette méthode).
Sinon, la source fonctionne bien avec Delphi 5.

Merci.

Bonjour,

Un an et demi plus tard, je peux confirmer que le réveil d'une machine marche très bien et ce, même derrière un routeur.

Merci donc à tous pour cette source bien utile !

Salut Julio, ta source à maintenant 4 ans .. =)
je suis tombé dessus en cherchant une méthode pour intercepter un double clic sur une forme.
Je cherchais en effet une méthode différente de celle qui consiste à surcharger la procédure normale d'interception des messages.
(Suis je clair?)

je me suis donc intéressé de près à ta source,
et je pense qu'il y a grande confusion dans la procédure :

procedure TFormMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
   Pos:TPoint;
begin
  GetCursorPos(Pos);
  case X of
    WM_LBUTTONDBLCLK:
      if dblClickAction=0
        then PowerOff
        else if dblClickAction=1
               then Reboot
               else SuspendSession;
    WM_LBUTTONDOWN:;
    WM_LBUTTONUP:;
    WM_RBUTTONDBLCLK:;
    WM_RBUTTONDOWN:;
    WM_RBUTTONUP: PopupMenu1.Popup(Pos.X,Pos.Y);
  end;
end;

Tu fais une sélection par le case X avec comme résultats possible des constantes de message,
alors que X représente la valeur sur l'axe X de la position du curseur ...

Du coup j'ai cherché un peu, et je laisse un exemple.. pour ceux qui sont interressés:

*Placez ce code dans FormMouseUp pour intercepter un clic gauche relachés.

procedure TFormMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
   Pos:TPoint;
begin
  GetCursorPos(Pos);
  if Shift = [ssRight]
    then PopupMenu1.Popup(Pos.X,Pos.Y);    
    else if Shift = [ssRight,ssDouble]
           then if dblClickAction=0
                  then PowerOff
                  else if dblClickAction=1
                         then Reboot
                         else SuspendSession;
  end;
end;

BBye

Bonsoir,
Très bon exemple Damien, Merci.

Si j'ai bien compris ce qu'expliquait, Joleroy, plus haut,
on ne peux tester cet exemple qu'en local sur http://Localhost ou http://127.0.1 ?
Sinon, il faut être sur une autre connexion internet...

Quelqu'un a-t-il pu tester cet exemple à distance par l'adresse Ip de la machine sur laquelle tourne l'aplication?


Merci.

Merci pour cet exemple.. :)
7/10 c bien..
Sinon juste une question, le password est il sécurisé à partir de cette méthode.. ?
Merci pour vos remarques.

Merci à toi ManChesTer pour cette réponse si rapide !!
:]

une question, comment avoir le fichier nommé FileLib dans le uses?
Merci !