mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0000811] "Random annoying access violation messages, prompts for exit or ignore (attached err)"

Browse source
This commit is contained in:
Alexander Koblov 2014-07-15 11:19:47 +00:00
commit a1df9245ec
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/platform/win/uTotalCommander.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
Creates Total Commander fake window (some plugins don't work without it)
Copyright (C) 2009 Koblov Alexander (Alexx2000@mail.ru)
Copyright (C) 2009-2014 Alexander Koblov (alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -35,6 +35,9 @@ procedure CreateTotalCommanderWindow(hWindow: HWND);
implementation
uses
LCLVersion, Forms, JwaDbt, uDebug;
var
wcFakeWndClass: TWndClassEx;
//hMainWindow,
@ -57,6 +60,14 @@ begin
}
//SendMessage(hMainWindow, uiMsg, wParam, lParam);
{$IF (lcl_fullversion >= 1020000)}
if (uiMsg = WM_DEVICECHANGE) and (wParam = DBT_DEVNODES_CHANGED) and (lParam = 0) then
begin
Screen.UpdateMonitors; // Refresh monitor list
DCDebug('WM_DEVICECHANGE:DBT_DEVNODES_CHANGED');
end;
{$ENDIF}
{$IFDEF DEBUG}
WriteLn(uiMsg);
{$ENDIF}