Сорс:
Code
Global logf
Global is_dat
Global dat = Date()
Procedure.s Date_()
ProcedureReturn Str(Year(dat))+"."+Str(Month(dat))+"."+Str(Day(dat))+" "+Str(Hour(dat))+":"+Str(Minute(dat))+":"+Str(Second(dat))
EndProcedure
Procedure Log_WriteL(text.s)
If is_dat > 0
WriteString(logf,"[ "+Date_()+" ] "+text.s,#PB_Ascii)
WriteByte(logf,13)
WriteByte(logf,10)
Else
WriteByte(logf,13)
WriteByte(logf,10)
EndIf
EndProcedure
ProcedureD LL Log_Create(patch.s,is_data)
is_dat = is_data
logf = CreateFile(#PB_Any,patch)
Log_WriteL("--- Begin of log ---")
EndProcedure
ProcedureDLL Log_Write(text.s)
If is_dat > 0
WriteString(logf,"[ "+Date_()+" ] "+text.s,#PB_Ascii)
WriteByte(logf,13)
WriteByte(logf,10)
Else
WriteString(logf,text.s,#PB_Ascii)
WriteByte(logf,13)
WriteByte(logf,10 )
EndIf
EndProcedure
ProcedureDLL Log_End()
Log_WriteL("--- End of log ---")
CloseFile(logf)
EndProcedure
