--- a/hedgewars/uCommandHandlers.pas	Fri Jun 08 02:41:14 2012 +0400
+++ b/hedgewars/uCommandHandlers.pas	Fri Jun 08 02:52:35 2012 +0400
@@ -26,7 +26,8 @@
 procedure freeModule;
 
 implementation
-uses SysUtils, uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uRandom, uCaptions, uVideoRec;
+uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uRandom, uCaptions
+     {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF};
 
 var prevGState: TGameState = gsConfirm;
 
@@ -532,10 +533,12 @@
 procedure chRecord(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
+{$IFDEF USE_VIDEO_RECORDING}
 if flagPrerecording then
-    StopPreRecording
+    StopPreRecording()
 else
-    BeginPreRecording(FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()));
+    BeginPreRecording();
+{$ENDIF}
 end;
 
 procedure chSetMap(var s: shortstring);