beautypg.com

Apple AppleShare 3.0 File Server Controls User Manual

Page 20

background image

procedure, you must

initialize gMaxVolumes and gMaxExpFolders with the values returned by

the SCGetGetupInfo control call.

PROCEDURE GetAllUserMountInfo (UNRecID: LongInt);

VAR

err: OSErr;

Index: Integer;

VRefNum: Integer;

FilesOpen: Integer;

WriteableFiles: Integer;

Mounted: Boolean;

MountedAsOwner: Boolean;

BEGIN

FOR Index := -gMaxVolumes TO gMaxExpFolders DO

IF Index <> 0 THEN { index 0 is undefined }

BEGIN

err := MySCGetUserMountInfo(VRefNum, FilesOpen,

WriteableFiles, UNRecID,

Mounted, MountedAsOwner);

IF (err = noErr) AND Mounted THEN

BEGIN

{ do something with the information returned }

END;

END;

END;

Disconnecting users

This section describes the server control calls that you use to disconnect

users from file servers and from file server volumes.

SCDisconnect

The following function calls SCDisconnect to disconnect specified users from