Verschiedene Gruppenberechtigungen werden vor dem Senden einer Nachricht überprüft.
Zur Zeit sind folgende Funktionen eingebunden:
- Überprüfung, ob Nachrichten in eine bestimmte Gruppe geschrieben werden dürfen.
Name und Funktion
Include | : | {$I _i_OOMC_CheckGroupPermissions} |
Funktion | : | PermitSending (Message); |
Einbindung
Generelle Infos zur Einbindung von INCLUDE-Files findest du hier.
{******************************************************************************* * OnOutgoingMessageCheck * *******************************************************************************} Program OnOutgoingMessageCheck; //--[ Include-Files ]----------------------------------------------------------- {$I _i_OOMC_CheckGroupPermissions} //--[ Procedure OnOutgoingMessageCheck ]---------------------------------------- Procedure OnOutgoingMessageCheck( Message : TStringlist; Var Warnings, Errors : TStringlist ); Begin // Gruppenberechtigungen überprüfen If Not PermitSending(Message) Then Begin Warnings.Add('Das Versenden einer Nachricht ist in dieser Gruppe nicht gewünscht'); Errors.Add('Berechtigung für das Senden einer Nachricht'); Beep; End; End; //------------------------------------------------------------------------------ Begin End.
Download
CheckGroupPermissions v.1.1.0 | ||
Dietmar Vollmeier Homepage 31.01.2009 1.12 KB 3432 |