I use PB application to open a TXT file, another program will prompt the TXT file open occupied,
Below is a code, fileopen function of the last parameter is set all the people of the read/write,


INT LI_HANDLE=0
STRING LS_TXT=""
BOOLEAN LB_TF=TRUE
IF FILEEXISTS (" config. TXT ") THEN
BEGINGOTO:
LI_HANDLE=FILEOPEN (" config. TXT ", LINEMODE! , READ! , SHARED!
FILESEEK (LI_HANDLE, 0, FromBeginning! )
FILEREAD (LI_HANDLE LS_TXT)
FILECLOSE (LI_HANDLE)
IF UPPER (LS_TXT)="TRUE" THEN
GOTO BEGINGOTO
The ELSE
UO_S1. UO_CAD. OF_CAXA_PRINT ()
END the IF
The ELSE

END IF

CodePudding user response:

There may be other code is open