hedgewars/uUtils.pas
changeset 11788 0327d20fa4a1
parent 11775 ee85798d6974
child 11824 3f1f8f79fcdb
equal deleted inserted replaced
11785:947e2d53afc1 11788:0327d20fa4a1
   584         logfileBase:= 'preview';
   584         logfileBase:= 'preview';
   585         {$ENDIF}
   585         {$ENDIF}
   586 {$IFDEF USE_VIDEO_RECORDING}
   586 {$IFDEF USE_VIDEO_RECORDING}
   587     InitCriticalSection(logMutex);
   587     InitCriticalSection(logMutex);
   588 {$ENDIF}
   588 {$ENDIF}
       
   589     if not pfsExists('/Logs') then
       
   590         pfsMakeDir('/Logs');
   589     // if log is locked, write to the next one
   591     // if log is locked, write to the next one
   590     i:= 0;
   592     i:= 0;
   591     while(i < 7) do
   593     while(i < 7) do
   592     begin
   594     begin
   593         logFile:= pfsOpenWrite('/Logs/' + logfileBase + inttostr(i) + '.log');
   595         logFile:= pfsOpenWrite('/Logs/' + logfileBase + inttostr(i) + '.log');