Apple AppleShare 3.0 File Server Controls - Manual (Page 23)

scPB.disconnectPB.scFlags := Flags;
scPB.disconnectPB.scMessagePtr := MessagePtr;
MySCDisconnectVolUsers := SyncServerDispatch(@scPB);
END;
The following procedure delivers a message to and disconnects the users of
the specified volume after ten minutes.
PROCEDURE DisconnectVolUsers (VRefNum: Integer);
VAR
err: OSErr;
VolToDisconnect: LongInt;
ArrayCount: Integer;
NumMinutes: Integer;
Flags: Integer;
Message: tLoginMsg;
BEGIN
VolToDisconnect := VRefNum; { note: Integer -> LongInt }
ArrayCount := 1;
NumMinutes := 10;
Flags := UNRFSendMsgMask; { send a message }
Message := 'A volume is going away.';
err := MySCDisconnectVolUsers(@VolToDisconnect,
ArrayCount, NumMinutes, Flags, @Message);
IF err = noErr THEN
{ the disconnect was started }
ELSE
BEGIN
{ handle any errors }
END;
END;
Sending messages to users