Apple AppleShare 3.0 File Server Controls Manual de usuario Pagina 23

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 79
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 22
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
Vista de pagina 22
1 2 ... 18 19 20 21 22 23 24 25 26 27 28 ... 78 79

Comentarios a estos manuales

Sin comentarios