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

InitSEQEntry := TRUE; { Everything is OK. }
END
ELSE
InitSEQEntry := FALSE; { No memory. }
IF GetCurrentProcess(ourPSN) <> noErr THEN
; { Get our process serial number. }
END;
END;
{ SetSEFlags sets the server event flags of }
{ gExtendedSEQEntry to tell AppleShare's server event }
{ mechanism which server events your application's server }
{ event handler are interested in. You can set the }
{ SE flags either before or after your server event }
{ handler is installed. }
{ IMPORTANT NOTES:}
{ • Your server event handler will be called based on the }
{ current settings of SEeventFlag. Make sure }
{ SEeventFlag is either initialized to zero (meaning }
{ your server event handler is not interested in any }
{ server events) or initialized for the specific server }
{ events your application is interested in before you }
{ install your server event handler. }
{ • If you set the bCSEHAFPInDoRequest or }
{ bCSEHAFPInSendResponse bits in SEeventFlag after your }
{ server event handler is installed, make sure you }
{ initialize the SEwhichAFPFlag bits first. }
{ • If you set the bCSEHServerControlCall bit in }
{ SEeventFlag after your server event handler is }
{ installed, make sure you initialize the SEwhichSCFlag }