mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Error message on not existing drive

Browse source
This commit is contained in:
Alexander Koblov 2009-08-20 06:35:14 +00:00
commit baa8a32720
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/platform/uosforms.pas
View file

@ -677,7 +677,7 @@ begin
aFile.Name := sPath;
Files:= TFiles.Create; // free in ShowContextMenu
Files.Add(aFile);
OldErrorMode:= SetErrorMode(SEM_NOOPENFILEERRORBOX);
OldErrorMode:= SetErrorMode(SEM_FAILCRITICALERRORS or SEM_NOOPENFILEERRORBOX);
ShowContextMenu(Owner, Files, X, Y);
SetErrorMode(OldErrorMode);
end;