Code:
Function DisplayMessage($MessageFile)
    ; Displays a specific text message contained in a text file via a standard Windows dialog box.
    dim $RC, $x, $Line
    $x=""
    if Exist($MessageFile)
        if OpenFile(2,$MessageFile, 2) = 0
            $Line=Readline(2)
            WHILE @ERROR = 0
                $x=$x+$Line+@CRLF
                $Line=ReadLine(2)
            LOOP
            $RC=Close(2)
            $x=MESSAGEBOX($x,"Network Message",4160)
        endif
    else
        DebugLog("File Not Found: " + $MessageFile)
    endif
Endfunction
_________________________
Home page: http://www.kixhelp.com/hb/