WD Sending a fax
// ----------------------------------------------------------------
// ----------------------- RUN CODE ---------------------------
// ----------------------------------------------------------------
// Connection to the fax server (service found in Windows 2000 or XP)
onnectID = FaxConnect()
// Check the connection to the fax server
IF onnectID = 0 THEN
// The other actions are not possible without connection
FaxGroup..State=Grayed
// Display the error message
Error("The connection to the fax server failed."+...
" Check whether it has been started", ...
ErrorInfo(errSystemMessage))
ELSE
// The other actions are possible
FaxGroup..State=Active
END
//-----------------------------------------------------
// ----------------------------------------------------------------
// ----------------------- RUN CODE ---------------------------
// ----------------------------------------------------------------
// The actions on the fax server are not accessible anymore
FaxGroup..State=Grayed
// Disconnection from the fax server
FaxDisconnect(onnectID)