Apple AppleShare 3.0 File Server Controls Instrukcja Użytkownika Pobierz pdf (Strona 16)

END;

SERVER CONTROL CALLS

The following procedure creates a list of shared volumes and folders. Before

using this procedure, you must initialize gMaxVolumes and gMaxExpFolders with

the values returned by the SCGetGetupInfo control call.

PROCEDURE GetAllExpFldrs;

VAR

Index: Integer;

shortName: Str13;

VRefNum: Integer;

Logins: Integer;

DirID: LongInt;

err: OSErr;

BEGIN

FOR Index := -gMaxVolumes TO gMaxExpFolders DO

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

BEGIN

err := MySCGetExpFldr(@shortName, VRefNum, Logins,

Index, DirID);

IF err = noErr THEN

BEGIN

IF Index < 0 THEN

BEGIN

{ do something with the shared volume }

{ information }

END

ELSE

BEGIN

{ do something with the shared folder }

{ information }

1 2 ... 11 12 13 14 15 16 17 18 19 20 21 ... 78 79

Brak uwag

Apple AppleShare 3.0 File Server Controls Instrukcja Użytkownika Strona 16