DeleteMessages (TdbfMessageBox)

Syfre (discuter | contributions)
(Page créée avec « <source lang='delphi'>procedure DeleteMessages(iLinkTypes:Integer; iReadState:Integer; iBefore:TDatetime);</source> Cette procédure supprime les messages par cette boîte a… »)

---

Version actuelle en date du 24 novembre 2011 à 08:51

procedure DeleteMessages(iLinkTypes:Integer; iReadState:Integer; iBefore:TDatetime);

Cette procédure supprime les messages par cette boîte antérieurs à une certaine date.

iLinkTypes	Le type de message à supprimer
iReadState	Le statut de lectures des messages à supprimer
iBefore	La date d'antériorité des messages à supprimer.

Exemple

var box:TdbfMessageBox;
begin
  box := TdbfMessageBox.Find('Name=%1','',True,['mybox']);
  if Assigned(box) then
   begin
     // delete all messages 
     box.DeleteMessages(MSGLINKTYPE_SEND+MSGLINKTYPE_RECEIVED, MSGREADSTATE_ALL, Now);
   end;
end;

Voir aussi :

• DeleteSendMessages

— TdbfMessageBox (bam) — Développement DSM —