Index: src/doublecmd.lpr
===================================================================
--- src/doublecmd.lpr	(revision 5268)
+++ src/doublecmd.lpr	(working copy)
@@ -116,10 +116,8 @@
   ProcessCommandLineParams; // before load paths
   LoadPaths; // before loading config
 
-  {$IF NOT DEFINED(DARWIN)}
   Application.ShowMainForm:= False;
   Application.CreateForm(TfrmHackForm, frmHackForm);
-  {$ENDIF}
   if InitGlobs then
     if IsInstanceAllowed then
      begin
Index: src/fmain.pas
===================================================================
--- src/fmain.pas	(revision 5268)
+++ src/fmain.pas	(working copy)
@@ -52,6 +52,9 @@
   {$ELSEIF DEFINED(LCLGTK2)}
   , Glib2, Gtk2
   {$ENDIF}
+  {$IF DEFINED(DARWIN)}
+  ,fHackForm
+  {$ENDIF}
   ;
 
 type
@@ -776,6 +779,11 @@
 begin
   Application.OnException := @AppException;
   Application.OnActivate := @AppActivate;
+  {$IF DEFINED(DARWIN)}
+  //HackForm receives in Mac OS closing events on system shortcut Ctrl-Q
+  frmHackForm.OnCloseQuery := @FormCloseQuery;
+  frmHackForm.OnClose := @frmMainClose;
+  {$ENDIF}
 
   ConvertToolbarBarConfig(gpCfgDir + 'default.bar');
   CreateDefaultToolbar;