DeleteMessages (TdbfMessageBox)

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 —